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EDITORIAL 


Ave à tous 


Nous rédigeons cet éditorial le 17 octobre 1986. Le retard se 
comble peu à peu. Le prochain numéro devrait être dans les 
temps. Enfin, nous espérons. 


Ne vous laissez pas abuser par la "minceur" du sommaire 
trois articles dont la longueur égale la qualité lui donnent cet 
aspect particulier. 


Nous rappelons à votre attention l’Assemblée Générale qui 
aura lieu, comme prévu, le 7 décembre 1986. A noter dans 
vos tablettes. 


Nous vous quittons maintenant, Car il reste beaucoup de 
travail pour le prochain numéro. Bonne lecture. 


A bientôt, 


Pierre David 
Janick Taïillandier 


IPC 36 Pare] 


PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris 
se réunit une fois par mois, en plein coeur de 
Paris. matériel, votre bonne 
volonté et vos idées ! Plus vous en apporterez, 


Amenez votre 


et plus vous en trouverez chez vos collègues de 
PPC. 

Ces réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n'étant imposé. Un membre du bureau est toujours 
présent. Ainsi, si vous désirez remettre votre 
article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en 


principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un 
seul instant, venez nous rejoindre tous les 
premiers samedis de chaque mois (sauf en péride 
de vacances scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 


75010 Paris 


et en montant au deuxième étage, vous entendrez 


des éclats de rire et des discussions 
passionnées vers La salle 215. Attention, 
toutefois, de venir entre 16 et 19h. 

Pour l'accès en métro, trois possibilités 


s'offrent à vous : 


- Métro Strasbourg Saint Denis : 
Sortie porte St Martin / Bd St Denis, coté pairs 


- Métro République : 
Sortie Bd St Martin, coté pairs 


- Métro Jacques Bonsergent : 
Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en 
avant première Lors de ces réunions... A bon 
entendeur, salut ! 


Les dates des prochaines réunions sont : 


Samedi 4 octobre 1986 
Samedi 15 novembre 1986 
Samedi 6 décembre 1986 
Samedi 17 janvier 1987 
Samedi 7 février 1987 
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Samedi 7 mars 1987 
Samedi 4 avril 1987 
Samedi 16 mai 1987 

Samedi 6 juin 1987 


Pierre DAVID 
(P37, SIG1, CHHU616) 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez 
pas sous quelle forme "l'équipe de rédaction! 
souhaite recevoir votre prose. C'est ici que se 
trouvent Les réponses à vos questions. 


Dans La mesure du possible, vous devez nous 
envoyer support magnétique 
cassette ou disquette). Soyez sans 
crainte, nous vous retournerons vos biens après 
copie. 


vos écrits sur 
(carte, 


Si vous ne pouvez pas utiliser de 
magnétique, ou ne pouvez vous 
réunions, alors et alors seulement faites le sur 
papier. 


support 
rendre aux 


Que ce soit sur une feuille de papier, ou sur 
suppor t magnétique, ne  dépassez pas 50 
caractères par ligne. 


Pour nous épargner du travail, insérez dans 
votre texte Les commandes de  formattage 
suivantes (et non les commandes du formatteur 
HP) : 


“su centre un titre, par exemple : 
"TITRE 


MAN (CHR$S(92)) marque Le début et La fin d'un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant Le contenu de 
vos idées qui, même si vous en doutez, 
intéressera membres du Club. 
Surtout si vous vous sentez débutant. Les 
articles pour débutants écrits par des débutants 
sont ceux qui manquent Le plus. Fin de 


paragraphe.\ 


certains des 


N'oubliez pas de mettre les accents. Utilisez 
Le jeu de caractères Roman8. Les possesseurs de 
HP71 utiliseront les redéfinitions de touches 
ci-dessous, ainsi que Le fichier CHARLEX listé 
dans le coin des Lhex en fin de journal. 


Jean-Jacques Dhénin 


DEF KEY 'fW', CHR$(197); (é) 
DEF KEY ‘fE', CHR$(193); (ê) 
DEF KEY ‘fR', CHR$(201); (è) 
DEF KEY ‘fY', CHR$(203); (ù) 
DEF KEY ‘fU', CHR$(195); (à) 
DEF KEY ‘fl', CHR$(209); (i) 
DEF KEY 'f0', CHR$(194); (ô) 
DEF KEY ‘f/!, CHR$(92); (\) 
DEF KEY ‘fA', CHR$(192); (à) 
DEF KEY 'fS', CHR$(200); (à) 
DEF KEY ‘fD', CHR$(205); (&) 
DEF KEY 'fJ', CHR$(207); (ü) 
DEF KEY ‘fK', CHR$(221); (i) 
DEF KEY ‘f*1, CHR$(124): (1) 
DEF KEY ‘fC', CHR$(181); (ç) 


Alain GOUBAULT DE BRUGIERE 
27, Avenue de Brimont 
78400 Chatou 


Cher ami, 


Je profite de l'occasion pour donner mon point 
de vue et échanger quelques idées. Je viens de 
lire Le dernier numéro de JPC (35) et je tiens à 
féliciter 

réalisation. 


tous ceux qui ont participé à sa 

La présentation est remarquable. 
Pour ce qui est du contenu, tu l'avoues toi-même 
dans l'éditorial : ça plane haut, très haut même ! 
Je travaille actuellement sur un HP71 avec 
“simplement" un lecteur de cartes (minimum 
oblige) et quand même Le module FORTH/ASSEMBLEUR ; 
j'ai acquis ce dernier pour Le FORTH qui est un 
langage "sympa" et surtout bien adapté à ce 
genre de machine. Je ne suis pas encore familier 
avec Le langage machine pour profiter pleinement ; 
jusqu'à présent, Les Lex que j'utilise dans mes 
applications (scientifiques) ont été récupérés 





tout faits dans JPC et finalement, je me demande 
si je n'aurais pas dû lui préférer le module 
“Translator PAC" (dictionnaire FORTH étendu, 
simulation HP41, mode CALC amélioré). Bah ! je 
ne désespère pas de faire mes propres fonctions, 
même si je n'ai pas l'âme d'un SIGouilleur. Cela 
dit, je me demande s'il reste quelque chose 
d'intéressant à réaliser qui puisse être 
récupéré dans une application : à mon avis, la 
prochaine étape serait que Le Club réalise un 
module (du genre ROM 1/0 April du HP75), qui 
rassemblerait les réalisations Les plus 
importantes, les plus intéressantes. Je ne 
serais pas surpris d'apprendre que l'article 
“Assemblage d'enfer" dans JPC 35 est un prélude 
à ce qui se prépare ; et puisque nous y sommes, 
pourquoi pas un compilateur Basic ? 


Mes applications sont donc plutôt scientifiques 
(je suis ingénieur, tout s'explique) et j'ai 
plutôt besoin de programmes utilitaires 
appliqués aux mathématiques, à La physique ou la 
mécanique (RDM). Il me tarde d'ailleurs de me 
procurer Le module MATHS (question : puis-je me 
le procurer par l'intermédiaire du Club, et à 
quel prix ?). 


Bien sûr, mon rêve serait d'avoir quelques 
périphériques  HPIL (au moins imprimante et 
stockage de masse, mais bon sang ! que c'est 
cher 1!) et plus de mémoire (les modules HHP de 
32 Ko sont abordables, mais j'ai entendu dire 
qu'il y a un problème si on les raccorde à la 
mémoire principale à cause de fichiers qui 
pourraient être à cheval sur ces deux mémoires. 
Qu'en est-il exactement ?). 


Alain Goubault de Brugière 


Réponse du docteur JPC : 


IL est vrai que le niveau des articles est 
souvent très élevé dans JPC. Nous voudrions tous 
que cela change. Mais pas par un nivellement par 
Le bas : nous ne sommes pas ridicules dans le 
domaine de l'assembleur HP71, et il 
dommage de perdre notre réputation. Cependant, 
ce souci ne doit pas nous faire perdre de vue 
que chacun doit pouvoir trouver de l'intérêt 
dans JPC. Alors, si ce sont toujours Les mêmes 


serait 


qui écrivent, cela ne changera pas... Suivez 
donc l'exemple d'Alain Gillet ! 
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Je pense que ton module Forth/Assembleur est un 
achat intelligent, que tu ne regretteras pas. Tu 
liras dans un prochain JPC ce que nous pensons 
du module "Translator Pac". Et nul n'a besoin 
d'être SiGouilleur pour utiliser Les nouvelles 
fonctions qui paraissent. Quant à les faire 
soi-même, c'est Un pas que peu franchissent. 
C'est d'ailleurs pour cela que Pierre David est 
en train de rédiger un petit article 
d'initiation, en espérant que cela permette à 
plus de membres de s'y mettre. 


Quant à une Rom PPC-Paris, il n'en est pas 
encore question. Cela représente un travail 
monumental, et nos week-ends sont déjà pris par 
La fabrication du Journal. Un jour, peut-être... 


Tu peux te procurer Le matériel à 25% du prix 
officiel HP en t'adressant au Club. Les modules 
32Ko se plaçant dans Les ports avant du HP71 
sont maintenant disponibles chez EduCalc aux 
Etats-Unis, au prix de 150 $. IL n'y a pas de 
problème de raccord à La mémoire principale. 





Philippe Guez 


C 


| / 
Michel MARTINET 
55 rue Véron 
94140 ALFORTVILLE 
Tél: 43 78 62 50 
Vend : 
Un HP75C + Visicalc + Text Formatter 


pour 3500.00 Frs. 





François LE GRAND 
rue de La Poterie 
Trévignon 

29128 TREGUNC 

tél : 98 50 00 10 


Vend : 

1 Lecteur de cartes HP-71 + 75 cartes : 1000 FF 
1 Module FORTH-ASSEMBLER : 800 FF 

1 Lecteur dé Cassettes : 2000 FF 


Figure 1V.7 - Types d'arguments et modes de passage : définition. 
possibilites et incompatibilités. 
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CHOC EN RETOUR 


L'article “billet doux" (JPC36) de Eric Gengoux 
est complété par cette table, ainsi que La carte : 


Quelques distances au départ de Paris : 


AGEN (via Vierzon, Périgueux) 

AGEN (via Poitiers, Bordeaux) 

AIX EN PROVENCE (via Marseille) 

AIX LES BAINS (via Bourg ou Lyon) 
ANGERS (via Le Mans) 

ANGOULEME (via Poitiers) 

ANNECY (via Bourg ou Lyon-St André le Gaz) 
ANTIBES (via Lyon, Marseille) 
ARCACHON (via Poitiers, Bordeaux) 
AVIGNON (via Lyon) 

BASEL SBB (via Troyes, Belfort) 

LA BAULE (via Le Mans, Nantes) 
BAYONNE (via Poitiers, Bordeaux) 
BELFORT (via Troyes) 

BESANCON (via Dijon) 

BEZIERS (via Lyon, Nimes) 

BIARRITZ (via Poitiers, Bordeaux) 
BORDEAUX St Jean (via Poitiers) 
BOULOGNE VILLE (via Amiens) 

BOURG EN BRESSE (via Dijon ou TGV) 
BOURGES (via Vierzon) 

BREST (via Le Mans, Rennes) 
BRIANCON (via Lyon, Valence) 

BRIVE LA GAILLARDE (via Vierzon, Limoges) 
CAEN (via Evreux) 

CALAIS (via Amiens) 

CALAIS MARITIME (via Amiens) 

CANNES (via Lyon, Marseille) 
CARCASSONNE (via Vierzon, Toulouse) 
CHALON SUR SAONE (via Dijon) 


CHAMONIX-MONT-BLANC (via TGV ou Bourg ou Lyon) 


CHAMBERY (via Dijon, Bourg, Culoz, ou TGV) 
CHERBOURG (via Caen) 


CLERMONT - FERRAND (via Vierzon ou Montargis) 


COLMAR (via Troyes, Mulhouse) 

LE CREUSOT (via TGV) 

DAX (via Bordeaux) 

DIEPPE (via Rouen ou Gisors) 

DIJON (via Laroche-Migennes ou TGV) 
DUNKERQUE (via Amiens, Arras, Hazebrouck) 
EPINAL (via Nancy) 

EVIAN (via Bourg ou Lyon) 

FORBACH Frontière (via Metz) 

GAP (via Lyon, Valence) 

GENEVE (via!TGV, Bourg ou Lyon) 
GRANVILLE (via Flers) 

GRENOBLE (via TGV, Lyon) 

LE HAVRE (via Rouen) 

HENDAYE Frontière (via Bordeaux, Dax) 
JEUMONT Frontière (via St Quentin) 


651 
717 
900 
582 
308 
445 
621 
1068 
640 
742 
526 
479 
780 
743 
406 
912 
790 
581 
254 
477 
232 
622 
861 
499 
299 
296 
299 
1057 
804 
382 
734 
596 
371 
420 
533 
389 
729 
171 
315 
312 
427 
670 
429 
779 
626 
328 


228 
817 
241 





KEHL Frontière (via Nancy) 512 
LILLE (via Douai) 258 
LIMOGES (via Vierzon) 400 
LISIEUX (via Evreux) 191 
LORIENT (via Rennes ou Nantes) 554 
LOURDES (via Bordeaux) 853 
LYON  PERRACHE/PART-DIEU (via TGV ou Dijon) 512 
MACON (via TGV ou Dijon) 440 
LE MANS (via Chartres) 211 
MARSEILLE ST CHARLES (via Lyon) 863 
MENTON (via Lyon, Marseille) 1111 
METZ VILLE (via Bar-le-Duc) 354 
MODANE Frontière (via TGV ou Lyon) 706 
MONACO-MONTE-CARLO (via Lyon, Marseille) 1104 
MONTPELLIER (via Lyon, Avignon) 841 
MOULINS (via Montargis ou Vierzon) 314 
MULHOUSE VILLE (via Troyes) 492 
NANCY VILLE (via Bar-le-Duc) 353 
NANTES (via Le Mans) 396 
NARBONNE (via Vierzon, Toulouse) 863 
NEVERS (via Montargis ou Vierzon) 254 
NICE VILLE (via Lyon, Marseille) 1088 
NIMES (via Lyon, Avignon) 791 
NIORT (via Poitiers) 412 
ORLEANS 121 
PAU (via Bordeaux) 814 
PERIGUEUX (via Limoges) 499 
PERPIGNAN (via Vierzon, Toulouse) 926 
POITIERS (via Blois) 232 
PORT-BOU Frontière (via Vierzon, Toulouse) 969 
QUEVY Frontière (via St Quentin) 235 
QUIMPER (via Rennes ou Nantes) 621 
REIMS (via La Ferté-Milon ou Epernay) 156 
RENNES (via Le Mans) 374 
LA ROCHELLE (via Poitiers) 479 
ROUBAIX (via Lille) 268 
ROUEN RIVE DROITE 140 
ROYAN (via Poitiers, La Rochelle ou Angoulème) 558 
SETE (via Lyon, Nimes) 868 
STRASBOURG (via Nancy) 504 
ST BRIEUC (via Le Mans, Rennes) 475 
ST ETIENNE-CHATEAUCREUX (via Lyon) 512 
ST GERVAIS-LE FAYET (via TGV ou Bourg ou Lyon) 696 
ST JEAN DE LUZ (via Bordeaux) 803 
ST MALO (via Rennes) 455 
ST NAZAIRE (via Le Mans, Nantes) 460 
ST RAPHAEL-VALESCURE (via Lyon, Marseille) 1024 
TARBES (via Bordeaux) 874 
TOULON (via Lyon, Marseille) 930 
TOULOUSE MATABIAU (via Vierzon, Cahors) F3 
TOURS (via Blois) 235 
TROUVILLE-DEAUVILLE (via Lisieux) 2è1 
VALENCE (via Lyon) 617 
VALENCIENNES (via St Quentin ou Douai) 251 
VALLORBE Frontière (via Dijon, Dôle) 460 
VANNES (via Rennes ou Nantes) 501 
VINTIMILLE Frontière (via Lyon, Marseille) 1115 
VICHY (via Montargis ou Vierzon, Moulins) 365 
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HP41 


L. Ancelet Programmes astronomiques ô 
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PROGRAMMES ASTRONOMIQUES 


ci-dessous 
permet, à l'aide d'une HP-41 munie au minimum de 


L'ensemble des programmes décrits 
ses 319 registres de mémoire centrale, de ses 
124 registres de mémoire étendue, et d'un module 
TIME (idéalement, une HP-41CX), d'effectuer un 
certain nombre de calculs astronomiques tels 
que: position des principaux astres du système 
solaire, heures de lever et de coucher de ces 
astres, phases de La Lune, inclinaison des 
anneaux de Saturne, ainsi que quelques calculs 
astrologiques tels que position des maisons, 
noeuds de La Lune, Soleil Noir et Lune Noire, 
conversion de La longitude écliptique en une 
position dans un signe (il ne s'agit ici que de 
l'astrologie. Je 
pas dans des querelles du style 
“faut-il croire à l'astrologie", "faut-il tenir 
compte de La précession", "les maisons ne 
doivent-elles pas être égales", etc...). Un 
rappel des notions élémentaires de mécanique 
céleste sortirait du cadre de cet article, aussi 
renverrai-je Le lecteur à quelques ouvrages de 
référence comme “Astronomie Générale! de DANJON, 


la partie calculatoire de 
n'entrerai 


“Astronomical Formulae for Calculators" de Jean 
MEEUS, "Ephémérides Astronomiques" du Bureau des 
Longitudes, ainsi que “Astronomical Tables of 
the Sun, Moon, and Planets!'' de Jean MEEUS. 


Voyons maintenant l'organisation des différents 
programmes: plutôt que d'écrire un énorme 
programme monolithique de 2000 Lignes, il m'a 
paru préférable, à tout point de vue, d'écrire 
un certain nombre de modules aux fonctions bien 
précises, aux paramètres d'entrée et de sortie 
bien définis, ce qui permet notamment : 


1) de n'utiliser que ceux dont on a besoin 
(si seule La position du Soleil vous 
intéresse, inutile d'encombrer La mémoire 
avec Le module qui calcule La fraction 
illuminée du disque lunaire). 


2) de ne pas immobiliser toute La mémoire 
centrale pour les calculs astronomiques, en 
stockant Les modules inutilisés en mémoire 
étendue, et en Les rappelant quand ils sont 
nécessaires. 


3) d'avoir éventuel lement plusieurs 
versions d'un même module, (à condition que 
les paramètres en entrée et en sortie 
soient Les mêmes). Par exemple, selon que 
vous voulez La position de La Lune à un 
degré ou à une seconde près, le module aura 
une taille de 200 ou de 2000 octets... 
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Voici La liste des modules présentés dans cet 

article, avec leur fonction. Les paramètres et 

les mémoires utilisées sont detaillées plus bas. 
REF: cacule, à partir de la date et de 
l'heure en Temps Universel, le temps écoulé 
(en siècles juliens de 36525 jours) depuis 
la date de référence (1900,0 soit le 31 
décembre 1899 à 12 heures Temps Universel). 


Sidéral 
donné, au 


SID: calcule Le Temps 
correspondant à un 
méridien origine. 


instant 


KPL: résout l'équation de Kepler (ce 
module est utilisé dans le calcul de la 
position du Soleil et des planètes). 


NUT: calcul de La nutation en obliquité et 
en longitude a un instant donné. 


EQT: calcul des coordonnées équatoriales 
d'un astre, à partir de ses coordonnées 
écliptiques. 


SUN: calcul de [La position du Soleil 
(longitude et rayon vecteur, éventuel lement 


ascension droite et déclinaison). 


PLA: calcul de La position d'une planète 


(coordonnées hélio- et  géo-centriques, 
éventuel lement coordonnées équatoriales et 
élongation). 


NOM: recopie en mémoire centrale, depuis 
la mémoire étendue, des coefficients des 
polynômes nécessaires au calcul des 
éléments orbitaux d'une planète. 


ELT: calcul des éléments osculateurs d'une 
orbite planétaire. 


LUN: calcul des coordonnées écliptiques de 


la Lune, et éventuellement coordonnées 


équatoriales. 


HOR: calcul pour un Lieu donné des 


coordonnées horaires (azimut et hauteur) 
d'un astre dont on connait les coordonnées 
équatoriales (ascension droite et 
déclinaison). 


LCA: calcule, pour un lieu donné, l'heure 
du Lever ou du coucher d'un astre 


quelconque (Soleil, Lune, Planète). 


KLU: calcule La fraction illuminée du 
disque lunaire, et dit si La phase est 
croissante ou décroissante. 





ANN: calcule l'angle sous lequel Les anneaux 
de Saturne sont éclairés par Le Soleil, 
et l'angle sous lequel on Les voit depuis La 
la terre. 
Viennent ensuite quelques programmes qui 
n'intéresseront que Les astrologues en culotte 
courte : 


CSP: calcule pour un lieu donné les 
positions des cuspides des maisons (méthode 
de Placidus). 


SLN: calcul de La position du Soleil Noir. 
LNN: calcul de La position de La Lune Noire. 


N.B.: Le Soleil Noir et La Lune Noire ne 
correspondent à aucun caillou céleste, sachez 
seulement qu'ils tournent à La même vitesse que 
la Ligne des apsides des astres correspondants. 


SGN: convertit une longitude  écliptique 
(donc de 0 à 360 degrés) en une position à 
l'intérieur d'un signe (donc de 0 à 30 
degrés). 


IL serait peut-être temps de s'intéresser à 
l'utilisation des différents modules, 
c'est-à-dire à ce qu'on leur dit et ce qu'ils 
nous répondent. 


REF: temps écoulé depuis La date de référence. 
Entrée: Y = date (JJ.MMAA) 

X = heure T.U. (HH.MMSS) 
Sortie: X et RO0= Temps écoulé depuis 1900,0. 


SID: temps sidéral. 
Entrée: ROO = T (Temps écoulé depuis 1900,0). 
Sortie: X = temps sidéral à l'instant T. 


KPL: Résolution de l'équation de Kepler. 
Entrée: Y = M (anomalie moyenne); 


X = e (excentricité). 
Sortie: Y = v-M (v = anomalie vraie): 
X = r/a (r = Rayon vecteur, a = demi 


grand axe). 


NUT: composantes de La nutation. 
Entrée: ROO = T (Temps depuis 1900,0). 
Sortie: T = obliquité moyenne 
Z = su “ 
Y = nutation en obliquité (degrés) 
X = nutation en longitude (degrés) 
O0 = obliquité apparente 


EQT : coordonnées équatoriales. 
Entrée: Y = longitude écliptique 


X = latitude écliptique 
Sortie: Y = déclinaison (degrés): 
X = ascension droite (heures) 


SUN: position du soleil. 
Entrée: ROO = T (Temps écoulé depuis 1900,0). 
Sortie: * si CFO00: Y = rayon vecteur (U.A.) 


X = longitude écliptique 
* si SF00: Y = déclinaison (degrés) 
X = ascension droite (h.) 


PLA: position d'une planète. 

Entrée: RO0O = T (Temps écoulé depuis 1900,0) 
R16 à R26 = coefficients des pol ynômes 
Sortie: R0O1 longitude héliocentrique 


RO2 = latitude héliocentrique 
RO3 = distance héliocentrique 
RO4 = longitude géocentrique 
ROS = latitude géocentrique 
RO6 = distance géocentrique 
RO9 = longitude du Soleil (Qui a dit : " 
hél'iocentrique 
ou 
géocentrique 

222") 
R10 = rayon vecteur du Soleil sus-nommé. 
* Si CF00: X = longitude géocentrique(R04) 


Y = latitude géocentrique (R05) 
* si SF00: X = ascension droite 
Y = déclinaison 
et en prime : R0O7 = élongation, >0 
à l'ouest du soleil, 
<0 à l'est du soleil. 


NOM: rappel en mémoire des coefficients des 
polynômes qui, etc... 

Entrée: ALPHA = nom de La planète sur 3 caractères 

(MER, VEN, MAR, JUP, SAT, URA, NEP, PLU). 

Sortie: R16 à R26 = coefficients des polynômes qui 
etC.. eo 

NH. l'exécution de ce programme suppose 

l'existence en X-memory (soit mémoire étendue 

pour Les anglophobes) de 8 fichiers de type DATA 

ayant pour nom: MER, VEN, etc...!' et pour 


contenu les coefficients des polynômes qui, etc. 


ELT: calcul des éléments osculateurs à partir 
des fameux coefficients. 
Entrée: ROO = T (temps perdu depuis 1900,0) 
R16 à R26 = coefficients des 
qui, tout ça, or donc. 
Sortie: R0O1 = anomalie moyenne de 
céleste considéré. 
RO2 = exentricité de qui vous savez. 
RO3 = demi-grand axe of the orbitre. 
RO4 = longitude hélio sans trique moyenne. 
ROS = longitude hél iocentrique 
(décidement...) ascendant (Oh!). 


pol ynômes 


l'astre 
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RO6 = inclinaison du plan orbital sur 


l'écliptique. 


LUN: calcul de La position de notre mère à 
tous, La LUNE !11! 
Entrée: ROO = T (temp retrouvé par ce cher Marcel) 
Sortie: * si CF01: X et RO6 = long. géocentrique 
Y et RO7 = lat. géocentrique 
* si SF01: X = ascencion droite 
Y = déclinaison 
RO6 = longitude géocentrique 
RO7 = latitude géocentrique. 


LCA: lever et coucher des astres en un lieu 
Entrée: R13 = latitude du lieu (degrés, positive 
au Nord) 
longitude du Lieu (heures, positive 
à l'Ouest, rien de nouveau). 
choix de l'astre: SF00 = Soleil 
SF01 = Lune 
SF02 = Planète 
Sortie: CF03 ===> ROO = instant du lever 
SF03 ===> ROO = instant du coucher 
N.B.: l'instant du lever (ou du -“oucher) est 
exprimé en siècles juliens écoulés depuis 
1900,0... mais Le programme suivant les exprime 
sous une forme plus sympathique: 


R14 


DTE: convertit T en une date et une heure T.U. 
Entrée: ROO = T (siècles juliens depuis 1900,0) 
Sortie: X = date (JJ.MMAAAA) 

Y = T.U. CHH.MMSS) 


KLU: fraction illuminée du disque lunaire. 

Entrée: ROO = Temps écoulé depuis 1900,0 

Sortie: X = fraction illuminée, >0 si La phase 
croit, <0 si elle décroit. 

N.B.: La fraction illuminée est un nombre entre 

0 et 1, O0 correspond à la Nouvelle lune, 1 à la 

Pleine Lune, +0.5 au Premier Quartier, -0.5 au 

Dernier Quartier. 


ANN: latitude saturnicentrique de la Terre et 
du Soleil. 
Entrée: ROO = T (siècles juliens depuis 1900,0) 
RO1 = longitude héliocentrique de Saturne 
à cet instant 
RO2 = latitude héliocentrique de Saturne à 
cet instant | 
RO4& = longitude géocentrique de Saturne à 
cet instant 
ROS ‘= Latitude géocentrique de Saturne à 
cet instant 
Sortie: X = latitude saturnicentrique de La Terre 
Y = latitude saturnicentrique du Soleil 
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N.B.: Si ces deux latitudes sont de même signe, 
on voit Les anneaux du côté éclairé, sinon on en 
voit La face obscure ; quand la latitude 
saturnicentrique de La Terre s'annule, on voit 
Les anneaux par La tranche. 


Voilà, nous avons fait Le tour des programmes 
d'astronomie, jetons à présent un coup d'oeil 
sur ceux d'astrologie. 


CSP: Calcul des cuspides des maisons par la 
méthode de Placidus. 
Entrée: ROO =T 


X = longitude (heures, >0 à l'est de 


Greenwich) 

Y = latitude (degrés, >0 au Nord de 
l'équateur) 

Sortie: R0O1 = longitude écliptique de L'ASC 

RO2 = os , de II 

ROZ = n w de III 

RO&G = " we du MC 

ROS = M " de XI 

RO6 = . n de XII 


N.B.: quand La latitude du lieu est négative 
(hémisphère SUD), Les registres RO à  RO6 
contiennent Les longitudes des cuspides VII, 
VIII, IX, IV, V et VI (respectivement). 


SGN: conversion de longitude 
position dans un signe. 
Entrée: X = longitude écliptique de l'astre ou 

cuspide. 
ALPHA = nom de l'astre (ou cuspide) sur 4 
caractères maximum. 

Sortie: derrière Le nom de l'astre est rajouté 

le signe et la position dans le signe. 
N.B.: Les 12 signes sont représentés par les 
mnémoniques (latins) suivants: M'ARI, TAU, GEM, 
CAN, LEO, VIR, LIB, SCO, SGT, CAP, AQR, PIS'. 


écliptique en 


NOD: noeud ascendant de la Lune. 

Entrée: ROO = T (siècles juliens depuis 1900,0) 

Sortie: X = longitude du noeud ascendant de la 
Lune. 


SLN: Soleil Noir. 
Entrée: ROO = T (siècles juliens depuis 1900,0) 
Sortie: X = longitude du Soleil Noir. 


LNN: Lune noire. 
Entrée: ROO = T (Siècles juliens depuis 1900,0) 
Sortie: X Longitude de |: Lune Noire. 





Ainsi s'achève la description des différents 
modules. Avant de passer à leur contenu, si nous 
examinions quelques exemples ? 


Exemple 1: calcul de La position du Soleil le 
12/02/81 à 12 heures T.U. 


12.02198100 ENTER” 
12.00000000 


XEQ REF" 

0.811170431 *** (temps ecoulé depuis 1900,0) 
SF 00 (on veut Les coordonnées 
XEQ "'SUN'! équatoriales) 

21.73439793 *** (ascension droite en degrés 
HMS déc imaux) 

21.44038326 *** (Les  éphémérides donnent 
X<>Y 21 44 04) 

-13,62291147 *** (déclinaison en degrés 
HMS déc imaux) 

-13.37224813 *** (Les éphémér ides donnent 

-13 37) 


Exemple 2: calcul de La position de La Lune le 
10/05/81 à 0 heure T.U. 


10.05198100 ENTER” 
0.000000000 


XEQ "REF" 

0.813538672 *** 

CF 01 (on veut Les coordonnées 
XEQ "LUN écliptiques) 

128.0151769 *** (longitude degrés décimaux) 
X<>Y 

0.282566336 *** (Latitude) 
X<>Y (on Les remet dans le bon 
XEQ !EQT'! ordre) 

HMS 

8.420114070 *** (Les éphémérides donnent 
X<>Y 08 41 54) 
HMS 

18.32175456 *** (Les éphémérides donnent 
XEQ "KLUM 18 32) 

0.403816228 *** (phase croissante - les 


éphémérides donnent 0.40) 


Exemple 3: position de Saturne le 27/11/81 à O0 
heure T.U. 


SAT 

XEQ !"'NOM!! (rappel des coefficients en 
27.11198100 ENTER” mémoire) 
0.000000000 

XEQ MREF'! 

0.819041752 *** 

SF 02 (on veut les 
XEQ ‘"PLA' équatoriales) 
HMS 


coordonnées 





13.14072504 *** (les  éphémérides donnent 
X<>Y 13 12 46) 
HMS 

-5.213305423 *** (Les  éphémérides donnent 
RCL 07 -05 14 

45.57338082 *** (élongation Ouest) 
RCL 01 

194.9418468 *** (longitude héliocentrique) 
RCL 02 

2.461589758 *** (latitude héliocentrique) 
RCL 03 

9.638908288 *** (distance au Soleil en U.A.) 
RCL 04 

199.1348610 *** (longitude géocentrique) 
RCL 05 

2.302654838 *** (Latitude géocentrique) 
RCL 06 

10.30381336 *** (distance à La terre - 
XEQ ‘“ANN' éphémérides: 10.289) 


CIRATBETTI (la Terre voit La face Nord - 
X<>Y éphémérides: 11.32) 
9.540904181 *** (le Soleil éclaire la face 
Nord - éphémérides: 9.38) 


Exemple 4: Lever et coucher de Jupiter à Paris 
le 10/07/81. 


10.07198100 ENTER” 


12.00000000 (heure approchée initiale: 12 


XEQ "REF! heures T.U.) 
CF 00 (on ne veut pas le soleil) 
CF 01 (on ne veut pas La lune) 
SF 02 (on veut une planète) 
CF 03 (on cherche l'heure du lever) 
JUP 
XEQ ‘NOM! (rappelle Les élts orbitaux) 
48.50000000 (latitude de Paris = 48 50 N) 
HR 
STO 13 
-,.092100000 (longitude de Paris = 00 09 
HR 21 Est) 
STO 14 
XEQ "LCA! 
RCL 00 
0.815221134 *** (instant du lever) 
XEQ "DTE"! 
10.07198100 *** (c'est bien Le 10/07/81) 
X<>Y 
10.50441600 *** (10 50 44 T.U. - éph.: 10 48) 
SF 03 (cette fois Le coucher) 
XEQ "LCA" 
RCL 00 
0.815234782 *** (temps écoulé depuis 1900,0) 
XEQ "DTE"! 
10.07198100 *** (c'est bien Le 10/07/81) 
X<>Y | 


22.48345600 *** (à 22 48 35 - éphémérides: 


22 53) 
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Exemples 5: quelques 


28.09193400 ENTER” 
12.15000000 
XEQ "REF" 
0.347406172 *** 
48.50000000 HR 
.092100000 HR 
XEQ "CSP" 
RCL 01 
256.2481550 
ASC 
XEQ "SGN' 
ASC SGT 16.2 
RCL 02 
er TT 
Il 
XEQ ''SGN' 
[1 CAP 24.5 
RCL 03 
III 
XEQ ''SGN" 
111 PIS 9.6 
RCL 04 
MC 
XEQ "'SGN' 
MC LIB 15.5 
X] 
RCL 05 
XEQ !'SGN' 
XI SCO 10.7 
RCL 06 
XII 
XEQ "SGN'" 
XII SCO 29.7 
XEQ ''NOD" 
UF SU 
NOO 
XEQ "SGN'' 
NOD AQR 7.3 
XEQ "SLN' 
01.8 7 
SLN 
XEQ "SGN" 
SLN CAN ‘1.8 
XEQ "LNN" 
VERT 
LNN 
XEQ "SGN'" 
LNN LEO 8.1 


Voilà, c'est tout! 


O1*LBL "REF" 

HR 24 / ,5 + 1,0119 
RCL Z DDAYS + 36525 
/ STO 00 END 
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calculs astrologiques. 


(naissance le 28/09/34) 
(à 12h15 T.U.) 


(à Paris - ou pas loin) 


(longitude de l'Ascendant) 


(longitude de La maison 11) 


(etc.5) 


(longitude du noeud ascendant 
de la lune) 


(longitude du soleil noir) 


(longitude de La lune noire) 





O1*LBL "SID" 
RCL 00 36525 * ,5 - 
FRC LASTX INT ,5 + 
365,2421988 / 
,276919398 + FRC X<>Y 
1,0027 * + 24 * 
LASTX®MOD .END. 


O1*LBL "KPL'" 

STO N X<>Y STO M 

STO 0 

06*LBL 00 

RCL M RCL N R-D RÇCL O 
SIN * + RCL O - E 
RCL N LASTX COS * - 
STO Z / ST+ O ABS 

E-4 X<=Y? GTO 00 

RCL Z X<> O 2 / TAN 


E RCLN + E LASTX 
- / SORT * ATAN 
ST+ X RCL M - RCL O 
END 

O1*LBL “NUT" 
23,452294 RCL 00 
0130125 * - RCL 00 
X"2 164 E-8 * - 

STO O 259,18 RCL 00 
1936,142 * - 360 MOD 


E P-R 256 E-5 * 
ST+ O X<>Y -479 E-5 * 
.END. 


O1*LBL "EQT" 

STO M X<>Y STO N 

XEQ "NUT"! ST+ M RCL O 
COS RCL N SIN * 

RCL O SIN RCL N COS 
* RCL M SIN * + 
ASIN RCL O COS RCL N 
COS * RCL M SIN * 
RCL O SIN RCL N SIN 
* - RCL N COS RCL M 
COS * R-P CLX 15 / 
24 MOD .END. 


01*LBL "SUN" 
358,47583 RCL 00 
35999,04975 * + 

RCL 00 X°2 15 E-5 * 
- 360 MOD ,01675104 
RCL 00 418 E-7 * - 
RCL 00 X*2 126 E-9 * 
- XEQ "KPL!U E 2 E-7 
+ * STO M X<>Y 


279,69668 + RCL 00 
36000,76892 * + 

RCL 00 X°2 3025 E-7 * 
+ 360 MOD STO N 

FC? 00 RTN XEQ "NUT" 
,00569 - ST+ N RCL O 
SIN RCL N SIN * ASIN 
RCL O COS RCL N SIN 

* RCL N COS R-P CLX 
15 / 24 MOD END 


O1*LBL "PLA'"“ 
XEQ MELT'" RCL 01 
RCL 02 XEQ "KPL' 

ST* 03 X<>Y RCL 04 + 
RCL 05 - STO 01 SIN 
RCL 06 COS * RCL 01 
COS R-P X<>Y RCL 05 
+ 360 MOD X<> 01 SIN 
RCL 06 SIN * ASIN 
STO 02 RCL 03 P-R 
RCL 01 X<>Y P-R 
STO 04 RDN STO 05 RDN 
STO 06 CF 00 XEQ ‘SUN! 
STO 09 X<>Y STO 10 
P-R RCL 04 + X<>Y 
RCL 05 + X<>Y R-P 
RCL 06 X<>Y R-P 

STO 06 RON STO 05 
X<>Y 360 MOD STO 04 
FC? 02 RTN RCL 09 
RCL 04 - STO Y COS 
RCL 05 COS * ACOS 
X<>Y SIN SIGN * 

STO 07 RCL 05 RCL 04 
XEQ MEQT'' END 


O1*LBL "NOM! 
,; SEEKPTA 16,026 
GETRX END 


DIFLAL.  ELT" 

RCL 16 RCL 00 RCL 17 
* + 360 MOD STO 01 
RCL 18 RCL 00 RCL 19 
* + STO 02 RCL 20 
STO 03 RCL 21 RCL 00 
RCL 22 * + 360 MOD 
STO 04 RCL 23 RCL 00 
RCL 24 * + STO 05 
RCL 25 RCL 00 RCL 26 
* + STO 06 END 





O1*LBL "LUN" 
270,434164 RCL 00 
481267,8831 * + 360 
MOD STO 01 296,104608 
RCL 00 477198,8491 * 
+ 360 MOD STO 02 
358,475833 RCL 00 
35999,0498 * + 360 
MOD STO 03 350,737486 
RCL 00 445267,1142 * 
+ 360 MOD STO 04 
11,250889 RCL 00 
483202,0251 * + 360 
MOD STO 05 RCL 01 
RCL 02 SIN 6,28875 * 
+ RCL 04 ST+ X RCL 02 
- SIN 1,274018 * + 
RCL 04 ST+ X SIN 
,658309 * + RCL 02 
ST+ X SIN ,213616 * 

+ RCL 03 SIN ,185596 
* - RCL 05 ST+ X SIN 
114336 * - RCL 04 
ST+ X RCL 02 ST+ X - 
SIN ,058793 * + 

RCL 04 ST+ X RCL 03 - 
RCL 02 - SIN ,057212 
* + RCL 04 ST+ X 

RCL 02 + SIN ,05332 
* + 360 MOD STO 06 
RCL 05 SIN 5,128189 * 
RCL 02 RCL 05 + SIN 

, 280606 * + RCL 02 
RCL 05 - SIN ,277693 
* + RCL 04 ST+ X 

RCL 05 - SIN ,173238 
* + RCL 04 ST+ X 

RCL 05 + RCL 02 - 

SIN ,055413 * + 

RCL 04 ST+ X RCL 05 - 
RCL 02 - SIN ,046272 
* + RCL 04 ST+ X 

RCL 05 + SIN ,032573 
* + RCL 02 ST+ X 

RCL 05 + SIN ,017198 
* + STO 07 RCL 06 
FC? 01 RTN XEQ "EQT' 
END 


01*LBL "“HOR'! 

X<>Y STO M X<>Y 
XEQ "SID"! R° - RCL 14 
- 15 * STO N RCL 13 

E P-R X<>Y RCL M E 
P-R R° * RCL N COS 
" X<> Z * + ASIN 
STO O RCL 13 E P-R 
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ACLM EFRR"" 
X<> Z * RCL N E P-R 
RON ER 

RCL M COS * X<>Y R-P 
X<>Y 360 MOD RCL O 
.END. 


O1*LBL "LCA" 


02*L8L 00 

FS? 00 XEQ ‘'SUN"' 

FS? 01 XEQ "LUN' 

FS? 02 XEQ "PLA"! X<>Y 
TAN RCL 13 TAN * CHS 
ACOS 15 / FC? 03 CHS 
+ RCL 14 + 24 MOD 
XEQ "SID" - ,997 * 
876600 / ST+ 00 LASTX 
* ABS E-2 X<=Y? 
GTO 00 .END. 


O1*LBL "KLU" 
358,476 RCL 00 
35999 ,0498 * + 360 
MOD STO M 296,105 
RCL 00 477198,8491 * 
+ 360 MOD STO N 
350,737 RCL 00 
445267,1142 * + 360 
MOD STO O RCL N SIN 
6,289 * + RCL M SIN 
2,1 * - RCL O ST+ X 
RCL N - SIN 1,274 * 
+ RCL O ST+ X SIN 
,658 * + RCL N ST+ X 
SIN ,214 * + RCL O 
SIN ,112* + E P-R 
CHS LASTX + 2 / 

X<>Y SIGN * .END. 


O1*LBL ''ANN' 

168,12 RCL 00 1,3938 
* + STO M 28,07 

RCL 00 ,013 * - 

STO N E P-R RCL 05 
LASTX P-R RON * 

X<> Z * RCL 04 RCL M 
- SIN * X<>Y - ASIN 
STO O RCL N E P-R 
RCL 02 LASTX P-R RDN 
* X<> Z * RCL 01 

RCL M - SIN * X<>Y 

- ASIN RCL O .END. 
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O1*LBL "CSP" 

HR X<>Y HR TAN STO M 
X<>Y XEQ "SID" + 15 
* STO 04 1 30 XEQ 01 
STO 05 2 60 XEQ 01 
STO 06 -3 90 XEQ 01 
STO 0f -2 120 XEQ 01 
STO 02 -1 150 XEQ 01 
STO 03 RCL 04 XEQ 02 
STO 04 CF 00 RCL 01 
RTN 


39*LBL 01 

RCL 04 + STO N X<>Y 
STO O CF 00 X<0? 

SF 00 


48*LBL 03 

RCL N SIN 23,44 TAN 
* RCL M * FC? 00 CHS 
ACOS RCL O * 3 / 

FC? 00 GTO 00 180 + 


67*LBL 00 

RCL 04 + X<> N RCL N 
- ABS ,1 X<=Y?" 
GTO 03 RCL N 

78*LBL 02 

E P-R 23,44 COS * 
R-P X<>Y 360 MOD 
.END. 


O1*LBL "NOD' 
259,1833 RCL 00 
1934,142 * - 360 MOD 
END 


01*LBL "SLN'" 
101,220833 RCL 00 
1,719175 * + 360 MOD 
END 


O1*LBL "LAN!" 
154,47 RCL 00 
4069,034033 * + 360 
MOD END 


O1*LBL "SGN" 

360 MOD 30 / INT 
LASTX FRC 30 * X<>Y 
XEQ IND X X<>Y FIX 1 
RND E1 X>Y? "+ " 
ARCL Y AVIEW RTN 


22*LBL 00 
"} ARI " RTN 


25*LBL 01 
“+ TAU " RTN 


28*LBL 02 
“+ GEM " RTN 


31*LBL 03 
“}+ CAN " RTN 


34*LBL 04 
“fe LEO " RTN 


37*LBL 05 
nf VIR # RTN 


&O*LBL 06 
“h LIB " RTN 


43*LBL 07 
“+ SCO " RTN 


&6*LBL 08 
nf SGT # RTN 


49*LBL 09 
MH CAP " RTN 


52*LBL 10 
“}- AQR # RTN 


2" LBL: 11 
Wh PIS * .END. 


O1*LBL "DTE"' 

RCL 00 36525 * ,5 - 
INT LASTX FRC 24 * 
HMS X<>Y 1,0119 X<>Y 
DATE+ .END. 


O1*LBL "LOE"! 

MER" XEQ 01 "VEN" 
XEQ 01 "MAR!" XEQ 01 
"JUP" XEQ 01 "SAT! 
XEQ 01 "URA' XEQ 01 
NNEP# XEQ 01 "PLU" 
XEQ 01 BEEP RTN 


20*LBL 01 
AVIEW , SEEKR 16,026 
READRX VIEW 20 11 
CRFLD 16,026 SAVERX 
END. 


Les 
pour 


Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R24= 
R25= 
R26= 


Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R24= 
R25= 
R26= 


Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R24= 
R25= 
R26= 


Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R24= 
R25= 
R26= 


valeurs des coefficients des  polynômes, 
chaque planète, sont données ci-après: 


Mercure: 


102.2793800 
149472.5153 
0.205614210 
0.000020460 
0.387098600 
178.1790780 
149474.0708 
47.14594400 
1.185208300 
7.002881000 
0.001860800 


Venus : 


212.6032200 
58517.80387 
0.006820690 
-0.000047740 
0.723331600 
342.7670530 
58519.21191 
75.77964700 
0.899850000 
3.393631000 
0.001005800 


Mars: 


319.5191300 
19139.85475 
0.093312900 
0.000092064 
1.523688300 
293.7373340 
19141.69551 
48.78644200 
0.770991700 
1.850333000 
-0.000675000 


Jupiter: 


225.3283300 
3034.692020 
0.048334750 
0.000164180 
5.202561000 
238.0492570 
3036.301986 
99.44341400 
1.010530000 
1.308736000 
-0.005696100 
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Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R2&= 
R25= 
R26= 


Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R24= 
R25= 
R26= 


Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R2&= 
R25= 
R26= 


Pour 


R16= 
R17= 
R18= 
R19= 
R20= 
R21= 
R22= 
R23= 
R24= 
R25= 
R26= 
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Saturne: 


175.4662200 
1221.551470 
0.055892320 


-0.000345500 


9.554747000 
266.5643770 
1223.509884 
112.7904140 
0.873195100 
2.492519000 
-0.003918900 


Ur anus : 


72.648774800 


428.3791132 
0.046344400 
-0.000026580 
19.21814000 
è244.1974700 
429.8635460 
73.47711100 
0.498667800 
0.772464000 
0.000625300 


Neptune: 


37.73063000 
218.4613396 
0.008997040 
0.000006330 
30.10957000 
84.45799400 
219.8859140 
130.6813890 
1.098935000 
1.779242000 


-0.009543600 


Pluton: 


229.2180000 
145.3486800 
0.250236000 
0.000000000 
39.43871200 
93.22800000 
145.3486800 
109.7400000 
0.000000000 
17.17047000 
0.000000000 


* 
hp 
3 





Pour créer le fichier de données relatif à une 
planète, remplir les registres 16 à 26 avec les 
valeurs correctes (ou d'autres si ça vous 
amuse), mettre Le nom de La planète en ALPHA (3 
caractères), puis exécuter l'instruction SAVERX. 


On rêmarquera que certains "polynômes! relatifs 
à Pluton sont en fait des constantes: ceci est 
dû au fait que La théorie du mouvement de cette 
planète n'a pas été calculée. De ce fait, les 
expressions donnant directement les éléments 
osculateurs ne sont pas connues. On a donc 
utilisé des valeurs moyennes. 


Lionel Ancelet. 
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24 


34 


37 
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41 
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LE NOUVEAU DIVILEX 


Dans l'article DIVORCE (JPC No 37) vous étaient 
annoncés Les nouveaux DIVILEX et LISTPRIM avec 
les raisons qui ont motivé ces refontes. Voici 
les résultats : 


- rapidité légèrement accrue et gain d'octets. 
PGCD et PPCM acceptent maintenant jusqu'à 10 
nombres au lieu de 2. 
- FPRM recherche un nombre en amont, mais aussi 
en aval d'un nombre donné. Le 2ème paramètre 
n'est plus qu'optionnel et non obligatoire. 
- PRIM peut tester un nombre avec maximum de 15 
chiffres au lieu de 12. En revanche, il renvoie 
0 si Le nombre est premier ce qui facilite la 
programmation en Basic avec gain d'octets, et 
rend possible Le même type de sortie pour les 
nombres à 12 ou 15 chiffres. 
- Et malgré ces "plus" ajoutés, gain de 25 
octets. 


Le fichier Basic utilisant DIVILEX a été revu 
pour tenir compte des nouvelles syntaxes. Voici 
les changements : 

- création de sous-programmes acceptant des 
nombres jusqu'à 15 chiffres sous forme de 
chaînes alphanumér iques : 

- PRIM équivalent du mot PRIM 

- FPRM équivalent du mot FPRM 

- sous-programme DECOMP adapté aux possibilités 
ci-dessus. 

-  sous-programme REDUC acceptant maintenant une 
ou plusieurs fractions. 


Remarques : La 2ème syntaxe de PRIM est 
sûrement critiquable. Mon choix a été motivé par 
les raisons suivantes : 


- il faut rester réaliste : PRIM utilisé pour 
les nombres > 10*12 sera Le fait de la curiosité 
et de l'exceptionnel. 


Les temps de réponse pour Les grands nombres 
premiers sont longs (7 heures 3/4 pour 10°15-11 ! 
aussi  confiera-t-on au basic Le soin de 
récupérer Les résultats que Titan aura trouvés 
par l'intermédiaire de PRIM pendant une nuit par 


exemple. 


C'est pour cela que FPRM et NPRM ne vont pas au 
del à de 12 chiffres. Par contre, les 
sous-programmes  FPRM et DECOMP acceptent 15 
chiffres. 
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Ce choix m'a permis de ne pas trop grossir le 
Lex mais d'exploiter presque gratuitement la 
possibilité offerte par Les registres de 
calculer avec 15 chiffres. 


LISTPRIM est composé de 
totalement indépendants, donc possibilité d'en 
suppr imer . 


sous - progammes 


MODE D'EMPLOI 
et exemples avec DIVILEX 


Seuls Les changements par rapport à l'ancien 
DIVILEX sont signalés. Pour Le reste, voir JPC 
No 35. 


PRIM renvoie le premier diviseur 
ou 0 si Le nombre est premier . 


1ère syntaxe : PRIM (n) 
avec 0 < | n | < 10°12 


2ème syntaxe : PRIM (H,B) 
<= | H | < 1012 
B < 1000 
B < 1000 si H = 0 
H*1000 + B 
| n | < 10715 


avec 


A 
nt 


A 


donc 


0 
0 
ou 0 
n 
et O0 


A 


PRIM(311) ou PRIM(-311) ( ou PRIM(0,311) ) 
-> 0 n est premier 
PRIM(143) ou PRIM(-143) ( ou PRIM(0,143) ) 
-> 11 | 143 | = 11*13 
PRIM(999997874844,049) ou 
PRIM(-999997874844 ,049) 
-> 31622743 (en 301) 
| 999997874844049 | = 31622743 * 2 
PRIM(100071000730,021) 


-> 10007 (en 1115) 
100071000730021 = 10007 * 10000100003 
PRIM(999999999999, 827) 

-> 0 (en 7 heures 3/4 !) 


n est premier 
PRIM(1000000000000,021) 
-> invalid arg 
H > 1012 donc n > 10°15 
PRIM(1,8981) 
-> invalid arg 
B > 999 


ATTENTION aux "0" en excès dans B car il n'y a 
pas de "“garde-fou!" : 
exemple : n = 10007 nombre premier 
PRIM(1,0007) 
-> 19 Titan pose n = 1000*1 + 7 = 1007 


0 


OPTION interruption : voir JPC No 35 


FPRM renvoie Le nombre premier n 
le plus proche d'un nombre 
donné n1 dans un intervalle 
défini ou non 
on aura toujours 5 < n1 < 1012 
ou 5 < n2 < 10*12 


1ère syntaxe : FPRM(n1) 

avec n >= n1 

limite supérieure 

implicite n2 = 1012 
2ème syntaxe : FPRM(-n1) 

avec n <= nl 

limite inférieure 

implicite n2 = 5 
3ème syntaxe : FPRM(n1,n2) 


avec n1 <= n <= n2 
si ni <= n2 
avec n2 <= n <= ni 
si ni >= n2 


FPRM(300) ou FPRM(300,350) 

-> 307 
ler nombre premier >= 300 ou >= 300 et <= 350 
FPRM(-300) ou FPRM(300,250) 

-> 293 
ler nombre premier <= 300 ou <= 300 et >= 250 
FPRM(300,294) 

-> 0 
pas de nombre premier entre 300 et 294 


Remarque : "-" devant n1 ou n2 ou n1 et n2 
implique aussi La recherche en aval comme pour 
La 2ème syntaxe, mais restons simples. 

( FPRM(-300,250) -> 293 ) 


Pour l'extension à 15 chiffres voir LISTPRIM 


NPRM : pas de changement : voir JPC No 35 
PHI : dito 


: opère aussi avec Les entiers négatifs 


PGCD : plus grand commun diviseur 
de plusieurs nombres 
syntaxe : PGCD(n1,n2,...,ni) 
avec 2 <= i <= 10 
et | ni | < 10°12 


PGCD(385,210,715) ou PGCD(-385,210,-715) 

->5 
PGCD de 385,210 et 715 ou de -385,210 et -715 
pour i > 10 





PGCD(n1,n2,...n9,PGCD(n10,n11,...)) 
etc... voir JPC No 35 


PPCM : plus petit commun multiple 
de plusieurs nombres 


PPCM(n1,n2,...,ni) 
avec 2 <= i <= 10 
et | ni | < 10°12 


syntaxe : 


PPCM(385,210,715) 

-> 30030 
PPCM de 385,210 et 715 
pour i > 10 voir PGCD 


Le fichier basic 
LISTPRIM 


sous-progammes LPRIM , EQUZ , JUM , QUAD 
inchangés : voir JPC No 35 


CALL DECOMP("n"} 
-> décomposition d'un nombre en 
ses facteurs premiers 
n entré sous forme de chaîne 
avec 0 < | n | < 1015 
CALL DECOMP("999999999271) 
-> 3°3 59 62774639 
CALL DECOMP(#"100011000110021") 
-> 7 11 13 5227 19114423 


CALL REDUC(n) 
-> réduction de n fractions 
la fraction est réduite 
à sa plus simple expression 
si n > 1 les fractions sont réduites 
suivant leur plus petit commun dénominateur 
valeur absolue des 
numérateurs et dénominateurs < 10”°12 


sin= 1 


CALL REDUC(1) 
-> N1,D1 ? 99999999927,99999999999 
-> 111111171103 / 111171111111 

CALL REDUC(3) 


-> N1,D1 2 48,56 

-> N2,D2 2 65,135 

-> N3,D3 2? 1200,360 

-> F1 = 162 / 189 fCONT 
-> F2 = 91 / 189 fCONT 
-> F3 = 630 / 189 


( 48/56=6/7 165/135=12/27 1200/360=10/3 
PPCM(7,27,3)=189 48/56=162/189 
65/135=91/189 1200/360=630/189 ) 
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CALL FPRM("n") 
-> nombre premier le plus proche de n 
et supérieur ou égal à n 
avec 5 < n < 10°15 
CALL FPRM(!!-n") 
-> nombre premier Le plus proche de n 
et inférieur ou égal à n 
CALL FPRM('1000000000000") 
-> 1000000000039 (en 12:34") 
CALL FPRM('-99999999281) 
-> 9999999881 (en 77") 






CALL PRIM("n") | 
-> renvoie Le 1er diviseur den 
ou 0 si n est premier 
avec 0 < | n | < 10*15 
CALL PRIM("9999999999998391) 
-> 502543 Mer diviseur de n 
CALL PRIM('9999999999998771) 


-> 0 n est premier 
L'OPTION interruption du mot PRIM est 
évidemment utilisable avec ce  sous-programme 


(voir JPC No 35) 


Vous trouverez ci-dessous Le source du nouveau 
DIVILEX. Les algorithmes étant les mêmes, les 
commentaires sont réduits à ce qui est nouveau. PH 


Bonne chasse aux nombres entiers remarquables... 


Guy TOUBLANC (P276) 


H10 
ROA 
La nouvelle version de DIVILEX 
LEX ‘DIVILEX! 
1D #E 1 LOO 
MSG 0 
POLL 0 
t EQU 82 
ARGERR EQU #0BF 19 
DCHXW  EQU #OECDC Conversion décimal -> hexa PHI 
FLOAT EQU #18322 
FNRTN4 EQU #0F238 
IDIV EQU #0EC7B Division entière en hexa ou 
» décimal A(W)/C(W) 
MPY EQU #OECBB 
POPIN EQU #08D1C 
RJUST EQU #12AE2 
SQR17 EQU #0C553 racine carrée d'1 arg. fini 
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he mt or 8 mme 


ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 


KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 


ENDTXT 


NIBHEX 
GOSUB 


FPR 
#F 
NPR 
#F 
PGD 
#F 
PH 
#F 
PPM 
#F 
PRM 
#F 


"FPRM' 
t 
'NPRM! 
1+t 
'PGCD' 
è+t 
'PHI' 
3+t 
'PPCM' 
Lt 
'PRIM! 
5+t 


811 
popin 


RESA 
GTES 
LOO 
PHI 


RESA 
div 


ROA 
PHI 
H10 


div 


R2A 





Calcul de PHI : même algo- 
rithme (JPC no 35) mais rou 
tines en décimal + optimisa 
tion 


RESC 
RESA 


OUT 


PPM 


PGD 
pgd 


LOOPG 


PGC 


DIFO 


EUCL 


PGCD 


POP 
ERR 


A=C = 
GOSBVL FLOAT 
CA VW 
?2ST=0 0 


GOYES 
C=C-1 
GOVLNG 


NIBHEX 


OUT 
S 


FNRTN& 


88888888882A param. : mini 2 maxi 10 


ST=1 2 repère pour PPCM 

GONC  pgd 

NIBHEX 88888888882A dito ci-dessus 

ST=0 2 repére PGCD 

GOSUB DCS pope et teste le dernier 
® param. 

R1=A sauve en R1 

GOSUB D1 pope et teste le param. 
* précédent 

GONC  pgc 

R3=C sauve Le PGCD ou Le PPCM 

GOSUB D1 pope et teste Le param. 
* précédent 

GOSUB PGC calcul du PGCD 

?D#0 S encore 1 param. à poper ? 

GOYES  LOOPG oui retour à La boucle 

GONC  RESC non alors résultat 

C=R1 calcul PGCD des param. 

2C#0 W 

GOYES DIFO 

ACEX KW 

R3=A 

R2=C 

GOSUB RC 

?28=0 VW 

GOYES PGCD 

A=R1 

GONC  EUCL 

C=R1 C(W)=PGCD 

?2ST=0 2 seulement calcul du PGCD ? 

RTNYES oui alors retour 

A=R3 non alors calcul du PPCM 

GOSUB div 

RO=A 
=R2 

GOSUB E12 

ACEX VW 

GOSUB div 

C=RO 

?A<C W 

GOYES pop 

GOSUB dh 

R1=A' 

RTN 

C=RSTK 


GOVLNG ARGERR 


DCS 


D1 
popin 


c11 


r just 


E12 


CONST 


FPR 


NPR 
prim 


LIM2 


LIMI 


const 


PLS 


D=C 
D1=D1- 
D1=D1+ 
GOSBVL 
?A=0 
GOYES 
ST=1 
LCHEX 
7A>C 
GOYES 
GOSBVL 
D=D-1 
RTN 


C=0 
LCHEX 
D=C 
LCHEX 
R&=C 
RTN 


NIBHEX 
ST=1 
GONC 


NIBHEX 
ST=0 
ST=0 
GOSUB 
C=0 
?ST=1 
GOYES 
GOSUB 
R2=C 
?D=0 
GOYES 
R2=A 
GOSUB 
RO=A 
C=R2 
?A<=C 
GOYES 
ST=1 
GOSUB 
LCHEX 
GOSUB 
?A#0 
GOYES 


s 
16 

16 
POP1N 
s 

c11 

4 

011 

x 

pop 
RJUST 
s 








nombre de param. -> D(S) 
acrobatie pour le 1er param 
actualise D1 : param. suiv. 
pope le paramètre 

pas "-" avec le 1er param.? 
oui alors test C11 

non alors repère de "-" 


N >= 1012 ? 

oui alors erreur 

flot.->déc 
actualise nombre param. 


conversion déci. 


C(W)=10"12 en décimal 


D(W)=2 en décimal 


R&=10 en décimal 


param. : 1 mini 2 maxi 
repère pour FPRM 
goto routine commune 


param. : 2 mini 2 maxi 
repère pour NPRM 

pas de param. négatif 

pope et teste Le paramètre 


repère de param. négatif ? 
oui alors test de ce param. 
non alors C(W)=10"12 

R2=0 ou 10*12 (limite) 

1 seul paramètre ? 

oui alors 1 limite 

sauve le 2e paramètre 

pope et teste le 1er param. 
sauve Le param. ou le Îer 
C(W)=limite sup. ou inf. 

n <= limite ? 

oui alors S4=0 

non alors S4 

D(W)=2 R&=10=C(W) 

C(W)=6 

A(W)=N/6 B(W)=C(W)=MOD(N,6) 
N> 57? 

oui alors on continue 

non alors invalid arg 


initialise compteur 
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LOO 


sta 
STA 


CON 


LOOP1 
START 


det 


DET 


DETF 


CON 


RES 


RESU 


R1C 


div 


PRM 


C=C-B 
C=C+1 
?ST=0 
GOYES 
?B8=0 
GOYES 
ACEX 
p= 
LCHEX 
ACEX 
B=B-A 
GOC 
C=RO 
PF  GOSUB 
C=C-D 
C=C-D 
rt  GOSUB 
RT2 C=C-D 
GONC 
B=B-1 
GOC 
B=B-1 
GONC 
GOSUB 
C=C+D 
C=C+D 
GOSUB 
C=C+D 
GONC 
RO=C 
A=RO 
C=R2 
GOTO 
RO=C 
A=R2 
?C>A 
GOYES 
GOSUB 
?A#C 
GOYES 
?2ST=1 
GOYES 
C=R3 
C=C+1 
R3=C 
T C=RO 
RTNCC 
N  A=R3 
C=RSTK 
GOTO 


TNP 


R1=C 
GOSBVL 
RTNCC 


NIBHEX 
GOSUB 
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“ 
“ 
4 
CONTNP 
B 
START2 


D œ un © œ 


start 


det 


det 


LOOPF 


LOOP1 


START 


DET 


DET 


LOOP1 


DETF 


RESN 
NTES 


CONT 


RESU 


RESA 


IDIV 


8812 
DCS 


C(W)=N+1-MOD(N,6) 

pas de param. négatif ? 
alors recherche en amont 

N multiple de 6 ? 

oui alors départ de boucle 
C(B)=0 


C(B)=5 

A(B)=5 C(W)=N+1-MOD(N,6) 
B(B)=MOD(N,6)-5 

MOD(N,6) < 5 

MOD(N,6) = 5 C(W) = N 
boucle testant Les nombres 
non multiples de 2 ou 3 en 
aval de N 


TVAL 


err 
VAL 

N multiple de 6 alors 

départ de boucle en LOOP1 


MOD(N,6)=1 alors START 
boucle testant Les nombres 
non multiples de 2 ou 3 en 
amont de N 


loop 


SQR 
sauve n nouveau 


routine commune à FPRM/NPRM 
pour tester la primalité 
des nombres obtenus par 
incrémentation ou décrémen- 
tation 

est-ce FPRM ? 

oui alors résultat 

non alors incrémentation 
du compteur 


LTES 


C(W)=dernière valeur 
resc 


résultat GTES 


division entière A(W)/C(W) 


NTES 
param. : 1 mini 2 maxi 
pope et teste Le paramètre 





A=A-1 
?8#0 
GOYES 
BSL 
GONC 
GOSBVL 
A=B 
GOSUB 
RO=A 
C=RO 


_GOSUB 


A=R1 
ST=1 
ST=1 
?A=C 
GOYES 
ST=0 
RO=A 
GOSUB 
?2ST=1 
GOYES 
?A#C 
GOYES 
C=0 
GOTO 


GOSUB 
C=D 

GOSUB 
C=C+1 
GOSUB 
C=D 

C=C+1 
GOSUB 
GOSUB 


TVAL 


999 


err 


D1 


R2A 


SQR 


Loop 
SOR17 


r just 


R2A 


LTES 


GTES 


resc 


resc 


RESC 


CONST 


TESO 


TESO 


TES2 
TES2 





1 seul paramètre ? 
oui alors N < 10”12 


B > 999 ? 

oui alors erreur 
C(W)=1000 

sauve 1000 

sauve B 

pope et teste H 
C(W) = 1000 

C(W) = H*1000 
A(W) = B 

A(W) = H*1000 + B 
sauve N 

N # 0 ? 

oui alors on continue 


non alors erreur 

( équivalent de RJUST mais 
( sur 15 chiffres au lieu 
( de 12 

( 


oO e eee. 


teste si N est carré 
parfait 


( 
( 
( 
( 
( 
( 
( 


sortie anticipée possible 
repère N carré parfait 

N carré parfait ? 

oui alors tests 

non alors repère 

sauve N et non sa racine 
test primalité 

N carré parfait ? 

oui alors résultat 

N non premier ? 

oui alors résultat 

non alors résultat = 0 


D(W) = 2 R4& = 10 
divisib./2 


divisib./3 


dito JPC no 35 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
A=IN 
?A#0 
RTNYES 
A=R& 
C=C+A 
A=RO 
GOSUB 
C=R1 


TES4 
TES2 
TES4 
TES2 
TES4 
TES6 
TES2 
TES6 
TES4 
TES2 
TES4 
TES6 
TES6 
TES2 
TES6 
TES4 
TES2 
TES6 
TES& 
TES6 
TES8 
TES4 
TES2 
TES4 
TES2 
TES4 
TES8 
TESé 
TES4 
TES6 
TES2 
TES4 
TES6 
TES2 
TES6 
TES6 
TES& 
TES2 
TES4 
TES6 
TES2 
TES6 
TES4 
TES2 
TES4& 
TES2 
TES10 
TES2 


A(W) = 10 
WP dernier diviseur + 10 


R1C N/diviseur 
le dernier diviseur 


RESP 
rnp 
TES10 
TES8 
TES6 
TES4 
TES2 
TESO 


H1 


LO 


LOT 


MmpY 





?8=0 
GOYES 
?C>A 
GOYES 
GOTO 


C=RO 
GOC 
C=C+D 
C=C+D 
C=C+D 
C=C+D 
C=C+D 
R1=C 
A=RO 
P= 
?2C>=A 
GOYES 
CSL 
P=P+1 
GONC 
A=A-C 
GONC 
A=A+C 
P=P-1 
GOC 
CSR 
GONC 
C=R1 
p= 
?A#0 
RTNYES 
C=RSTK 
C=R1 
A=RO 
ST=0 
RTN 


R2=A 
GOSBVL 
SETDEC 
A=R2 
GOSBVL 
RTN 


END 


WP 
"np 


H 
RESP 
LOOP 
RNP 
WP 
WP 


WP 
WP 


LO 


LO 


LOT 


LO 


WP 


DCHXW 


MPY 





pour tests de comparaison 
sur 8 nibbles seulement 

( gain de rapidité ) 

par exemple ici 


dernier diviseur + 10 


dernier diviseur + 2 
sauve nouveau diviseur 
dito JPC no 35 


( ACW)*C(W) en décimal 
( 


( 
( 
( 
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UN LEX POUR VOS BASIC 


FONCTIONS BLIST & PBLIST 


Pour Lister Un programe de La manière dont il 
paraît dans JPC (mise en évidence des labels, 
fonctions utilisateurs, data...), ïl fallait 
jusqu'à présent utiliser Le programme JPCLISTE. 
Celui-ci transforme le Basic en texte, opération 
longue et délicate lorsque des XFN ou XWORD sont 
utilisés. En effet, ceux-ci ne sont pas reconnus 
lors de la transformation contraire (texte en 
basic). Je rappelle aux distraits que XFN et 
XWORD sont l'interprétation, lors de la 
décompilation, des mots appartenant à des Lex 
non présents en mémoire, ou désactivés. 


Désormais, il suffira de taper BLIST (Basic 
LIST) pour obtenir un résultat similaire à 
l'affichage. Cet ordre ajouté au BASIC travaille 
sur La version “tokenisée!! du programme et n'en 
demande donc pas le changement de type. Les mots 
END DEF, END SUB... sont localisés n'importe où 
sur La ligne et Les fonctions utilisateur 
monol ignes différenciées, sans erreur possible, 
des multilignes. L'ordre PBLIST est similaire 
mais effectue la sortie sur imprimante en 
décalant le texte de 20 colonnes à droite. Il 
faudra donc déclarer une largeur de ligne 
supérieure à 96+20=116 caractères. Utilisez donc 
PRINTLEX à cet effet ! 


FONCTION RENUMREM 


Pour faire paraitre un programme Basic, vous le 
documentez en insérant entre chaque ligne des 
remarques. Résultat : au prochain RENUMBER vous 
aurez une numérotation "“tordue! des seules 
lignes BASIC. De plus, lors de la parution dans 
notre  JPC favori, les numéros précédant une 
ligne de REM sont supprimés : Le lecteur a 
l'impression que vous avez  numéroté votre 
programme en dépit du bon sens. Mais pire, 
l'incrément entre chaque ligne BASIC n'étant pas 
constant, il lui sera impossible d'utiliser AUTO 
pour taper le programme. 


J'ai donc écrit l'ordre RENUMREM qui admet la 
même syntaxe et Les mêmes paramètres par défaut 
que RENUMBER, mais qui renumérote différemment 
les Lignes de REM. IL “colle au maximum ces 
lignes à La Ligne BASIC immédiatement 
précédente. Un exemple : 
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05 ! DEBUT 

10 PRINT TAB(18);:"TOTO" 

30 ! affiche le titre 

40 ! à droite de l'affichage 
42 | pour les besoins de 

45 ! notre exemple. 

50 IF°KEY$="" THEN 50 


Deviendra après RENUMREM 100,5 : 


100 ! DEBUT 

105 PRINT TAB(18);"TOTO" 

106 ! affiche le titre 

107 ! à droite de l'affichage 
108 ! pour les besoins de 

109 ! notre exemple. 

110 IF KEY$="" THEN 110 


Ou après RENUMREM 100,3 : 


100 ! DEBUT 

103 PRINT TAB(18);"TOTO" 

104 ! affichage du titre 

105 ! à droite de l'affichage 
106 ! pour les besoins de 

107 ! notre exemple. 

109 IF KEYS$="" THEN 109 


Comme demandé, La première ligne porte le No 
100. La suivante est BASIC, elle porte donc le 
No 100+3=103. Viennent les lignes de REM dont 
l'incrément est toujours de 1. Nous en sommes 
donc à la Ligne 107. La Ligne IF KEY$... aurait 
dû porter le No 106, qui est déja pris, on lui 
alloue donc Le No : 106+Incrément = 106+3 = 109. 
La prochaine ligne aura Le No 109+1=110 si REM, 
109+3=112 si c'est une ligne BASIC. 


J'espère que vous  jugerez ce Lex digne 


d'occuper 1096 octets de votre EPROM. A bientôt ! 


Jean-Pierre BONDU (PC 33, SIG 3) 


LEX 'BASICLEX! 


[D #E 1 
MSG 0 
POLL 0 

t EQU 90 


colprt 
len!!'= 


ARGERR 
BASCHA 
BASCHK 
BSERR 
CK"ON"! 
CKINFO 
COMCK 
CPL#10 
CSLWS 
CSRUS 
CURREN 
CURRL 
CURRST 
DO=PCA 
DISPt 
EOLCK 
EOLXCK 
FINDF+ 
FINDL 
FINDLO 
FSPECe 
FSPECp 
FSPECx 
FUNCRO 
GETPR1 
GETPRO 
GETSTC 
IVPARe 
LDCM10 
LDCSPC 
LISTDC 
MFERR 
MLFFLG 
NTOKNL 
NXTSTM 
OUT3TK 
OUTBS 
PCADDR 
POLL 
PRINT 
PRPSND 
PRSCOO 


ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 


EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU : 


EQU 
EQU 
EQU 
EQU 
EQU 


BLSTS 
# 
PBLSTS 
#D 
RENUMe 
#D 
"BLIST' 
t 


'PBLIST'! 


1+t 


RENUMREM" 


2+t 


19 
62 


#0BF 19 
#07741 
#0773E 
#0939A 
#076AD 
#18542 
#036CD 
#07887 
#0ED3D 
#OED2C 
#2F56C 
#2F7E8 
#2F550 
#09B37 
#00000 
#O2A7E 
#05405 
#09F63 
#OFFE4 
#O0FFFD 
#02F02 
#03CC5 
#09F 2D 
#2F89B 
#068FB 
#O6BEE 
#07726 
#02E3F 
#04F6F 
#2F6C1 
#05839 
#09393 
#2F870 
#048E6 
#08A48 
#02D15 
#2F58F 
#2F679 
#12337 
#00001 
#06817 
#07B93 


indentation de PBLIST 


RENSUB 
RESPTR 
S-RO-2 
S-R1-1 
SEND20 
SENDEL 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


SENDHS EQU 


STMTD1 
STMTRO 
STSAVE 


eFACCS 
eFSPEC 
eSTMNF 


fBASIC 
(EOL 
oBSsod 
OFLENh 
oFLSTr 
oFTYPh 
pLIST 
t! 

t COMMA 
tDATA 
tDEF 
tEND 
tENDDF 
tENDSB 
tLBLST 
tLINE# 
tREM 
tSUB 


EQU 
EQU 
EQU 


EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ENDTXT 


STITLE 


#1A753 
#03172 
#2F87B 
#2F886 
#17DFA 
#17DC1 
#17E15 
#2F896 
#2F871 
#2F6BE 


#0003C 
#0003A 
#OO01E 


#0E 214 
#00002 
#00011 
#00020 
#00031 
#00010 
#0000C 
#000FC 
#000F1 
#000C6 
#00089 
#000DA 
#000BA 
#000C2 
#000F6 
#0000F 
#000E6 
#000C1 


ILLEGAL ACCESS 
INVALID FILESPC 
STATMENT NOT FOUKND 





Listing Structuré 
ÉRRRRRRRRRRRRRRRRRRRRRRÉRRRRRRRRÉRÉRRÉRRÉRRÉRRRÉRRRRRÉRÉRÉ 


RRRRRARRRRRRRRRRÉRRRRRRÉRRRRÉRRERRRRÉRÉRRRRÉRRÉÉRÉARÉÉÉ 


* Nom : 


 # #4 # # # # # * 


H 


6 OÙ #4 # #  # *# * 


But : 


BLIST / PBLIST 


3 Type : Statment 


Lister Un programme BASIC au format de 
JPCLISTE, c.à.d. en sautant une ligne / 
tracant des 


Nz" avant 
SUB, DEF FN, DATA ... 


chaque label, 


ou après chaque 


END DEF, END SUB, END ALL. Ces derniers 
seront pris en compte quelle que soit 
leur position sur la ligne. 


Syntaxe: identique à LIST 


BLIST [<filename>] [,début [,fin)) 


Entrée : 


P= 0 


00 past tBLIST 
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* Utilisé : 
RO-R3,S0-S11,STMTRO, STMTR1,STSAVE, FUNCRO, 
FUNCR1 + tous les registres. 


* 


* *  * 


* 


Stack levels : 8 


* Auteur : Jean-Pierre BONDU 05/86 


Re ee ee he er ee ee er re ee ee er re le ee ee fe ee eee fe fe ee he he fe ee de ee 


KAKRRÉRRRRRRERRRRRRRRRRRARRRÉRRRRRRRRRRÉRRÉRRRRÉRRÉR ARR 


PBLSTS 


BLSTS 


LISTOS 


LISTI0 


LIST20 


LIST50 


LIST60 


LISTÉS 
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REL(5) 
REL(5) 


LC(2) 
A=0 
A=A+1 
GONC 


REL(5) 
REL(5) 


LC(2) 
A=0 


D1=(5) 
DAT1=C 
D1=D1+ 
DAT1=A 
D1=(4) 
C=DAT1 
D1=C 
A=DATO 
GOSBVL 
GOC 
LC(2) 
?A=C 
GOYES 
GOSBVL 
GOC 


GOSBVL 
GOC 


D1=D1+ 
A=DAT1 
ASR 
D1=D1- 
GOSBVL 
GOC 


GOSUB 
GOSBVL 
GOC 


D1=D1+ 
A=DATI 
GOSUB 
C=D 


BLSTDC 
BLSTP 
(PRINTt)*16+#F 
x lève ‘notre! S0 
x * 
LISTOS B.E.T. 
BLSTDC 
BLSTP 
(DISPt)*16+#F 
x baisse notre! S0 
MLFFLG 
B 
11 D1 à S-RO-2 
X sauve nos drapeaux 
CURRST 
A 
D1 à Début fichier 
8 
EOLXCK paramètres suivent ? 
LIST50 non 
t COMMA 
B 
LIST50 
FSPECX  spécificateur valide ? 
bserr non 
FINDF+ cherche le fichier 
LSTEXT pas trouvé ? 
(oFTYPh)-1 
A FILE TYPE 
A 
(oFTYPh)-1 
BASCHA BASIC FILE ? 
bserr no 
PARMXQ 
GETPR1 TEST FILE PROTECTION 
bserr “file Protect" 
(oFLENh)}-(oFTYPh)} 


A 
GETST1 
5 


ppp 


bserr 


LSTEXT 


pPOLL2 


D1=(5) 
DAT1=C 
GOSUB 
D0=(5) 
C=DATO 
DO=(4) 
DATO=C 
GOC 
GOTO 


GOVLNG 


?ST=1 
GOYES 
GOSBVL 
CON(2) 
GOC 
?XM=0 
GOYES 


* Not handled 


Mferr 
fspcer 


Nxtstm 


GETST1 


LIST76 


JPLOS 


# 


# 


D=D+1 
D=D+D 


GOYES 
LC(2) 
GOTO 
LC(2) 
GOC 
GOTO 


CD1EX 
DO=C 
C=C+A 
D=C 
DO=D0+ 
GOVLNG 


* 


*Dp1a 
x 
GOSUB 
ST=0 
GOSUB 


LC(2) 
?A=C 
GOYES 
ST=0 
GONC 


S-R1-1 
A 
LNARGS 
S-RO-2 
X 
STSAVE 
X 
LIST76 
LIST80 


BSERR 


6 
bserr 
POLL 
pLIST 
bserr 


Nxtstm 
- Give 
S 

S 
fspcer 
ri 
fspcer 
eFACCS 
mferr 
eFSPEC 
Mferr 
nxtstm 


Es 
À 


Cy vient de LNARGS 


Handled and errored ? 
Handled Okay ? 


correct error 


external device 


No file name specified ? 


8.E.T. 


(oBSsod)-(LlEOL) 


BASCHK 


Line To Print 


ST<>RM 
3 
READtk 


Traduit Ligne 2010 


tDATA 
B 
JPL10 
7 
JPL20 


rétablit 'nos' drapeaux 
baisse Multi Line FN flag 
A[B]= token 


DATA ? 
oui 


B.E.T. 


Traite une ligne de DATA 


JPL10 ST=1 9 


dat1 


® CD1EX 
* Traduit Ligne 2020 DATO=C A 
® CD1EX 
JPL20 ?ST=0 9 LC(2) tSUB 
GOYES  JPL22 9 est baissé 2A=C B 
2ST#0 7 GOYES PRT'"= 
GOYES  JPL22 7 est levé ?ST=0 8 
ST=1 8 GOYES  JPL50 
# Ajuste S9 sur S7 * 
JPL22 ST=0 9 * IMPRIME 62 =! 
?2ST=0 7 # 
GOYES JPL30 on ne change rien PRT"= ST=0 8 
ST=1 9 GOSUB ST<>RM 
GOSBVL CKINFO 
" GOSBVL SENDEL 
* Traduit Ligne 2030 C=0 A 
GOSUB  SENDSP 
JPL30 LC(2) tLBLST GOSUB D109BS 
2A#C B C=0 = 
GOYES JPL32 LC(2) lLen'"= 
ST=1 6 B=C B 
ST=1 8 A=C : 
GONC  JPL40 B.E.T. B=B-1 B 
JPL32 ST=0 6 LCASC ‘=! 
LC(2) tDEF Loopi DATO=C B 
?2A#C B DO=D0+ 2 
GOYES JPL40 B=B-1 B 
» GONC  Loopl 
* Une User FN est tokenisée comme suit : ST=1 #4 
, tDEF <5 nibbles field> tFN tVAR ... GOSBVL SENDWD 
* tFN = 00 => FN multiligne * 
* ]L faut que DEF FN, SUB, LABEL, DATA soient en GOSBVL SENDEL 
* début de ligne par contre END DEF, END SUB, END ® 
* ALL sont repérés quelle que soit leur position. * Restore D1 en 
* Cette recherche est assurée par SRCtk. - 
* 


* 


*+ 


S3 
S3 


?2ST=0 7 
GOYES dati 
ST=1 7 
GONC  JPL20 
?2ST#0 6 
GOYES JPL20 
ST=1 8 


7 était levé 


6 était levé 


ST=1 8 
ST=0 3 


1 : FN monoligne (DEF FNx(..)= . 
O0 : FN multiligne (DEF FNx(..) à 


D1=D1+ 13 D1 à tFN 

C=DATI B 

D1=D1- 13 

2C=0 8 FN multiligne ? 
GOYES JPL40 

ST=1 3 FN monol igne 


+ * *# * 


* Traduit Ligne 2040 


* 


JPL4O DO=(5) STMTD1 


Multi Line FN flag 


* 


..) 


sv) - 


GOSUB 


GOSUB ST<>RM 


JPL50 ST=0 


ST=0 
LC(2) 
?A=C 
GOYES 
LC(2) 


RCALD1 


* Traduit Ligne 2050 


4 

2 
tREM 
B 
JPL52 
t! 





Il reste à vérifier que La FN n'est pas une 
‘fausse! monoligne (i.e. qu'un END DEF n'est 
pas sur La même Ligne.) Cela sera éffectué par 
JPL60. 


D1 en STMTDI 


Sauve 'nos' drapeaux 
saute une ligne 


effectue indentation 


compteur 
ALAJ]= longueur buffer 
B[B]= compteur 


Affiche Le buffer de 
longueur ALA], D1 à début 
SEND End of Line 


début de ligne 


rétablit 'nos' drapeaux 
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?2A#C B 


GOYES  JPLS5 

ST=1 à 
JPLS2 ST=1 #4 signale ligne de REM 
JPLS5 GOSUB ST<>RM sauve 'nos' drapeaux 


GOSBVL LDCM10 
GOSUB SETPOS 
GOSUB ST<>RM 
GOSUB D1098S 


décompi Le 

effectue tabulation 
rétablit 'nos' drapeaux 
D1 à ligne décompilée 


* Maintenant il faut modifier Le No de ligne 
* si c'est une ligne de REM. 


?2ST=0 4 ligne REM ? 
GOYES  JPL60 non 


* FORMATE UNE LIGNE DE REM : 


. - Remplace le No de ligne par des espaces 
s - Supprime Le symbole "11 

® - Rajoute '-' si 1er ligne de REM 

* Entrée: 

* D1 & DO à début No ligne (OUTBS) 

* 


B[A] = longueur ligne en octets 
( NE PAS Y TOUCHER ! ) 

S5=0 => 1er ligne de REM 

S4=1 => ligne de REMarque 

<> ligne de REMarque 


+ *#  * 


Es 
Q 
LL 
v 


S2=z1 => ... de type "1 " 

, O0 => ... de type "REM 

* SSSR === === sms 
LCASC ‘ ! 

loop3 A=DATO B AlB]=chifrre du No ligne 
2A=C B fin No ligne ? 
GOYES JPLS7 oui 
DATO=C B efface chiffre 
D0=D0+ 2 
GONC  Loop3 BE. Fr. 


* 


* Traduit ligne 2140 


* 


JPLS7 DO=D0+ 2 DO à "! " ou "REM " 


A=0 a 
P= 7 
DATO=A 4 efface "I " (ou MRE'") 
2ST=1 2 commence par "I "7? 
GOYES suit | 
DATO=A WP efface "REM " 

suit  P= 0 
D0=00- 4 D0 à fin No ligne 
2ST=0 5 ler ligne REM ? 


GOYES JPLS8 oui: Carry Set 
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JPLS8 


JPLS9 


* 


* Imprime une ligne <> 


* Traduit Ligne 2060 


* 


JPL60 


JPL62 


Next 


LIST80 


* 


ST=1 
GONC 


5 
JPL59 


D0=D0+ 8 


ADOEX 
DO=A 
DO=00- 
CD1EX 
A=A-C 
ASRB 
?B<=A 
GOYES 
LCASC 


8 


A 


JPL59 


DATO=C B 


GOTO 


ST=0 
GOSUB 
?ST=1 
GOYES 
LC(2) 
?A=C 
GOYES 
LC(2) 
GOSUB 
GOC 
LC(2) 
GOSUB 
GONC 
ST=1 


GOSUB 
GOSBVL 


Next 


5 
RCALD1 
3 
JPL62 
tEND 

B 
JPL62 
tENDDF 
SRCtk 
JPL62 
tENDSB 
SRCtk 
Next 

8 


ST<>RM 
PRPSND 


#& 


A 


nxtstm 





<> 1er ligne REM 


longeur du No de ligne 
en octets. 
ligne de REM vide ? 


REM 


1 Line User FN ? 


sauve 'nos' drapeaux 
affiche Output Buffer 


D1 @ NEXT LINE 


READ IN LINE# 


LAST LINE TO DISPLAY 
DONE LISTING ? 


* CHECK FOR ATTN KEY DOWN & ANY SERVICE REQUESTS 


* 


CD1EX 


GOSBVL CK'!'ON" 


D1=C 
GONC 
GOTO 


nxtstm 
LIST76 
nxtstm GOVLNG NXTSTM 


ATTN KEY DOWN 





ee he he eee ee er er er er fe er er er er er er er er er er rer er er er rer re er le er or er re rer hr 


- SOUS ROUTINES ® 


KRRERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉRÉR RÉ É 


LNARGS DO=D0+ (LEOL) 
CDOEX 
D1=C 
A=R1 
B=A à 
A=0 A 
GOSBVL FINDLO 
RTNC 
?2ST=1 0 
GOYES nxtstm 
?2ST=1 10 
GOYES nxtstm 
RTNCC 


-- LiNe ARGumentS -- 
HP71B : #06B62 


RCALD1 D1=(5) STMTD1  -- ReCALL D1 -- 


C=DAT1 A 

D1=C D1 à Ligne compilée 
READtk D1=D1+ 6 skip over LINE# & tLEN 

A=DATI B A[B]= token du premier mot 

D1=D1- 6 

RTN RETURN Carry Clear 


* 


* Echange STSAVE avec STatus 


x 
ST<>RM D0=(5) STSAVE -- STatus <> RaM -- 
C=DATO X 
CSTEX 
DATO=C X 
RTN 


D10QBS DO=(5) OUTBS 
C=DATO A 
DO=C 
D1=C 
RTN 
* Sortie: C[A] = DO = D1 = Output Buffer Start 


# 


-> SRCtk <- 
Recherche sur une Ligne compilée un token 


Entrée : 

P=0 

CI(B]= token recherché 
SRCtk : D1 à No ligne 
SRCtk+ : DO à Stmt lenght 


Sortie : 
D1 = D1 en entrée 
B[A]=B [A] . 
CARRY SET => trouvé, DO à token 
CARRY CLR => pas trouvé 


OÙ OÙ Où 6 6 6 %Ù #4 # #  #  #  * 





SRCtk CDIEX -- SeaRCh token -- 
DO=C 
DO=D0+ 4 
CD1EX 
SRCtk+ BCEX A B(B]= token recherché 
RSTK=C sauve B[A] dans RSTK 
cont  C=0 A 
C=DATO B 
D=C A D[A]= longeur du Statment 
DO=D0+ 2 
A=DATO B Lit token 
2A=B B token recherché ? 
GOYES rtn 
CDOEX 
C=C+D A 
CDOEX 
DO=D0- 2 DO à tEOL ou ta 
C=DATO B 
DO=D0+ 2 
?2C#0 P Not EOL ? 
GOYES cont 
rtn C=RSTK 
B=C A 
RTN 
À ====222222se22EszsssssEssssEsszsTs=ssSsssssSssSSSSZ 
. -> SETPOS <- 
* Positionne Le curseur où commmencera 
* l'impression de La ligne en fonction de 
* La longueur du No de ligne. 
* 
* Entrée : = sortie de LDCM10 
® (OUTBS) à DC Line 
” B[A]= LENÇ(OUTBS) 
# STSAVE contient 'nos' drapeaux 
* 
* Sortie : = sortie de SENDSP 
® B[A]= LENÇ(OUTBS) 
* POSition du curseur a été écrite dans STMTRO. 
À ==========2sss=ss=s====SSSSSSSSSSSSSZ==E===S======== 
SETPOS GOSUB D109BS C à BS 
D1=(5) LDCSPC 
A=DATI A À à espace 
A=A-C A 
ASRB B A[0]= LEN(#line) octets 
LC(2) 4 longueur MAX d'1 ligne# 
C=C-A B offset pour TAB 
NO =======22SSsssssss=s===S==S=SSSSSSSSSSSSZEEEE====== 
® -> SENDSP <- 
* Envoie (colprt+offset) espaces au périphérique 
* de sortie (DISPLAY ou PRINTER). 
* 
* Entrée : 
- C([B]= offset 
® B[A]= quelconque 
* 


STSAVE contient 'nos' drapeaux 
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* Sortie : 
B(A]= B(A] en entrée 


— ne ue te de de de de A de AU A MU AE A de US A UN AUS AN UN AN ŒN CUS AN CN UN CUS UN UN CON CE CN CO CO (ON CO OC CO CU CN M Ce CO 


SENDSP 


* S0=0 
* S0=1 


TAB10 


TAB20 


TAB30 


TAB40 


TAB50 
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A=C 
D1=(5) 
A=DATI 


=> offset 
=> offset = 


C=R3 
GOSBVL 
C=B 
GOSBVL 
C=0 
C=C+1 
=A&C 
?A=0 
GOYES 
LC(2) 
C=0 
C=C+A 
R3=C 
GOSBVL 
D1=(5) 
C=DATI1 
D1=C 
C=0 
C=DAT1 
A=R3 
B=C 
D1=D01+ 
C=DAT1 
?C#0 
GOYES 
C=C+1 
?A<C 
GOYES 
A=A-C 
GONC 
A=A-B 
R3=A 
GONC 
A=A+B 
R3=A 
GOSBVL 
LCASC 
D1=(5) 
DAT1=C 
LC(5) 
D=C 
C=0 
LC(1) 
A=R3 
A=A-C 
GOC 


GOSBVL 
GOTO 


B 
STSAVE 
XS 


0 


CSLWS 
ü 
CSLWS 
4 

XS 

XS 

XS 
TAB10 
colprt 
XS 


CKINFO 


charge 'nos' drapeaux 
0 à 3 en AIXS] 
(BLIST) 


colprt (PBLIST) 


SO baissé ? 
oui 


#espaces total à envoyer 


(STMTRO)+6 


A 


mm œ Fr) >» 


TAB20 
XS 


TAB30 


TAB20 


TAB40 
A 


SENDEL 
ï 
FUNCRO 
# 
FUNCRO 
A 
À 
8 


TAB60 


A 


SEND20 
TAB50 


Lit WIDTH 


TAB>WIDTH ? 


B.E.T. 


' C=8 espaces 


adresse 


Deere eee 


TAB6O A=A+C A 


PARMXQ 


PRMXQ0 


PRMXQ1 


invarg 


GOSBVL 
C=R3 
GOSBVL 
B=C 
GOSBVL 
R3=C 
RTN 


ST=0 
C=0 
C=C+1 
R1=C 
LCHEX 
R3=C 
ST=0 


A=DATO 
LC(2) 
?A#C 
RTNYES 
DO=D0+ 
A=DATO 
ASR 
DO=D0+ 
R1=A 
?2ST=1 
GOYES 
S7=1 
A=0 
R3=A 


A=DATO 
?A#C 
RTNYES 
ST=0 
D0O=00+ 
A=DATO 
R3=A 
?2ST=1 
RTNYES 


C=R1 
?C>A 
GOYES 
RTN 


GOVLNG 


STITLE 


SEND20 





RESTORE B[A] 


CSRWS 
À 
CSRWS 


> > © 


Parm 1 
9999 

Parm 2 
10 


tCOMMA 
B pas de 


n > > — 


9 
PRMXQ1 
10 

A 


HP71B : #06B87 


= 00001 par défaut 


09999 par défaut 


paramètres ? 


ä parmi > parm 2 ? 


invarg oui 


ARGERR 


Renumérotation des Remarques 


Re ee he ee fe eee ee eee ee ee fe fe eee er fe fe fe er er er fe ee or er er ee or er oh oh fee 


ee ee ee ee ee eee er ee ee er er er rer rl rer rl rer roro eee eee ke 


* Nom : 
x 


* 
* 
* 
* 
* 
* 
* 
* 


* 


RENUMREM 


que 


. Type : Statment 


But : Renuméroter un programme BASIC sans 


Les Lignes de REM viennent 
perturber cette numérotation (dans 
La mesure du possible). 


-V- 


* registres -> RO 


RRRRRRRRRRRRR RE ee de ee ee ee ee ee fe fe er fe oh oh er he ee er er ee fe re oh he 


ROM de ee ee de de ee ee ee ee ee le fe he oh er ee er or er er er er ee er or er er er or ee he he he he ee 


RENUMe 


RENOO5 


RENO10 


REL(5) 
REL(5) 


CDOEX 
RO=C 
GOSUB 
GOSUB 
GOSBVL 


ST=1 
ST=1 
GOSBVL 
GOC 
D1=(5) 
C=R2 
DAT1=C 
GOSUB 
LC(2) 
GOTO 


A=RO 
DO=A 
GOSUB 
R2=A 
C=0 
C=C+1 
CSL 
RO=C 
R1=C 
CSL 
CSL 
CSL 
R3=C 
GOSUB 
GOC 
RO=A 
GOSUB 
GOC 
R1=A 
GOSUB 
GOC 


RNUMDC 
RNUMP 


CHKPSF 
GETSTe 
PRSCOO 


1 
è 
RENSUB 
RENO10 
PCADDR 


= 
UPDCRL 
eSTMNF 
mferr 


LINE#1 


> 


> 


GETLN# 
REN100 


GETLN# 
REN100 


GETLN# 
REN100 


Syntaxe: identique à RENUMBER 


Note: RENUMREM 100 , 10 , 200 , 500 


NO Ve. v: 
R1 @R2 R3 


“Statement Not Found!! 


RENO20 


REN100 


REN105 


REN110 


=A 
ADOEX 
R2=A 
GOSBVL 
?ST=0 
GOYES 
GOTO 


CD1EX 
CR2EX 
DO=C 
GOSUB 
GOC 
SETDEC 
P= 
A=A+1 
P= 
SETHEX 
GOC 
C=A 
GOSBVL 
A=0 
A=DAT1 
?2ST=1 
GOYES 
R3=A 


GOSUB 
CD1EX 
A=R2 
?A=C 
GOYES 
DO=A 
DO=D0- 
GOSBVL 
C=0 
C=DAT1 
A=RO 
?A>C 
GOYES 
GOTO 


D1=(5) 
C=DAT1 
D=C 
C=R2 
D1=C 
C=0 
C=DAT1 
DO=C 
C=RO 
RSTK=C 


C=R2 
D1=C 
A=R1 
B=A 


À 


FINDL 
0 
RENO20 
nxtstm 


GETLN# 
REN100 


UN 


WP 


oO 


REN100 
A 
FINDL 
A 

& 

0 
REN100 


LINE#1 


À 
REN105 


4 
CPL#10 
ü 
4 


à 
REN105 
invarg 


CURREN 


À 
A 


A 
4 


A 
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REN120 CDIEX NO snassausasssesssecses 


?2C>=D À tests ECRIRE Nv ----- 
GOYES ren170 NM os=esmmmmomcaesesesees 
D1=C REN140 DATI=A 4 LINE# = Nv 
A=0 L GOSUB READtk  A[B]= token 
A=DAT1 4 LCC2) t! 
C=R3 2A=C BB Ligne REM ? 
?A>=C A GOYES REN145 oui 
GOYES ren170 LC(2) tREM 
A=RO ?2A=C B Ligne REM ? 
2A<C A GOYES REN145 oui 
GOYES REN140 A=RO non: Anc = Nv+1 
REN130 SETHEX C=RSTK 
CDOOEX C=A A 
RO=C SETDEC 
C=0 A C=C+1 A 
C=C+1 À RSTK=C 
R1=C GOTO  REN150 
GONC  REN110 M'RANRÉAS ARS ANS SE eMESÉ 
ren170 GOTO REN170 # so... ECRIRE Anc :---- 
Ê O sosssssescesesesessesscse 
RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉRRRRRRRÉRRRÉRRÉARÉÉ REN145 C=RSTK C=Anc 
*  ORGANIGRAMME DE REN140 à REN155: DATI=C 4 Line# = Anc 
NO ses SETDEC 
ed C=C+1 À Anc = Anc+1 
* Entrée: RSTK = Anc [Next REM Line#] RSTK=C Sauvegarde Anc 
, RO = Nv [Next BASIC Line#] ” 
os 8(B] = Inc (Incrément] * On est toujours en DEC 
* * 
M“ jésisdesseus A=RO A=Nv 
* [ECRIRE Nv| P= 3 
LL LL ELLE REN140 2C<=A WP Anc <= Nv ? 
, | GOYES REN155 oui alors FIN 
M, 2 * 
, <LIGNE REM ?>----- non... * Entree: A=Nv ; B=Inc ; DEC 
U  — pssscsesis | * 
: oui | REN150 A=A+B A Nv = Nv+Inc 
NO ss... | RO=A Sauve Nv 
* JECRIRE Anc| | * 
No css... REN145 | * FIN: on remet tout en ordre pour REN160 
* « 
# messes ses REN155S SETHEX 
e [Anc=Anc+1 | [Anc=Nv+1| P= 0 
EEE D1=D1+ 4 D1 Q tLEN 
* | | C=0 A 
ne | 
* < Anc>NV ?>--non-- | REN160 C=DAT1 B 
#  --------. | | AD EX 
* [<-----......... A=A+C A 
W iusssssasse | | D1=A 
- INV=NV#InNcIREN | A=DATI 8 
NH —-Jésodsetasss 150 | D1=01+ 2 
= |< RTS 2A#0 P 
* | GOYES REN160 
* sésaha ht GOTO  REN120 


> #REN 155% 
- #HHHHHHHE FIN 


RRRRRRRRR RM RRRR RAR RSR ARR RÉ RAR RÉ RRRR RÉ RAR RAR RÉ RÉ RÉ RÉ 


RC PR 


REN170 


GETLN# 


LINE#1 


CHKPSF 


GETSTe 


mferr 


UPDCRL 


UPDCR1 
UPDCR3 


C=RSTK 
ST=1 
ST=0 
GOSBVL 
GOTO 


A=DATO 
DO=D0+ 
LC(2) 
?A#C 
RTNYES 
A=0 
A=DATO 
DO=D0+ 
RTNCC 


D1=(5) 
C=DAT1 
D=C 
D1=D1- 
A=DAT1 
C=0 
LC(2) 
A=A+C 
D1=A 
RTN 


GOSUB 
GOSBVL 
GOC 
?SB8=0 
RTNYES 
GONC 


GOSBVL 
RTNNC 
GOVLNG 


D1=(5) 
C=DAT1 
D1=C 
D1=01+ 
A=DAT1 
ASR 
LC(5) 
?A#C 
GOYES 
GOSBVL 
GOSBVL 
C=DAT 
GONC 
C=0 
D0=(5) 
DATO=C 
RTNCC 


1 
è 
RENSUB 
nxts tm 


CURREN 
A 

à 

15 

A 

A 
oFLSTr 
4 


GETSTe 


GETPRO 


mferr 


mferr 


GETSTC 


MFERR 


CURRST 
À 


(oFTYPh)-1 


A 

A 
fBASIC 
A 
UPDCR1 
DO=PCA 
CPL#10 
À 
UPDCR3 
À 
CURRL 
4 





ÉRMRRRRRRRRRRRRRRRRRRRRRR RÉ RÉ RÉ Rte RÉ RÉ RÉ RÉ É ÉR 
RRRRRRRRRRÉRRÉRRÉ ROUTINES D'ANALYSE Réhéhhékéééehéék 


dd ee ee de ee ee ee de ee ee er ee le er of le of fe fr er he er or or fe ve er fe er or fe fe fe fe he le er he dr 


* [<filename>] [,line#1 [,line#2]) 
* Très inspiré de LISTP (#03B92 / HP71B) 
BLSTP GOSUB eolck+ 


* ILLEGAL 


RNMP65 


LSTP12 


NAMEP7 


LSTP20 


LSTP40 


LSTPE 


eolck+ 


RNUMP 


GOC 
GOSBVL 
GONC 


?2ST=0 
GOYES 


GOVLNG 


GOSBVL 
GOC 
GOVLNG 


GOSUB 
GOSBVL 
GONC 


ST=1 
GOSBVL 
LC(2) 
?A#C 
GOYES 
LC(2) 
A=C 
GOVLNG 


GOVLNG 


GOSBVL 
RTNC 
GONC 


GOSUB 
GOC 
ST=0 
GOSUB 
?ST=1 
GOYES 


NAMEP7 
FSPECP 
LSTP12 


FILE SPEC 


7 
LSTP20 


FSPECe 


COMCK 
LSTP20 
RESPTR 


LSTP40 
COMCK 
NAMEP7 


9 
NTOKNL 
tLINE# 
B 
LSTPE 
tCOMMA 
B 
OUT3TK 


IVPARe 


EOLCK 


NAMEP7 


eolck+ 
NAMEP7 
9 
LSTP20 
9 
LSTP12 


pas de paramètre : fin 
spécificateur OK ? 
oui 


INVALID (MISSING PARM) 


fin de commande ? 
oui : Cy=1 
Cy=0 & RESPTR (B.E.T.) 


LSTPDN RTNCC 


RAMRRRRRRRRRRRRRRRRRRRRRRÉRRÉRRRRRRRRÉRRRRÉRÉRÉRRÉRÉRÉÉÉ 


RRÉRRRRRRRRÉRÉ ROUTINES DE DECOMPILATION RRRRARARRRÉRÉ 


RRRRRRRÉRRÉRRÉRRRRRRRRRÉRRRRRRRRRRRRRÉRRÉRRÉRRÉRRRRRÉRRARÉÉ 


RNUMDC 
BLSTDC GOVLNG LISTDC 


END 
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FORTHEMENT COMPLEXE 


A La suite de l'article de Alain  Herreman 
"HP71: Tellement complexe !" (JPC No 28), j'ai 
essayé son programme et je l'ai trouvé très 
lent. Il n'en fallait pas plus pour que je me 
mette à l'ouvrage. 


Principal problème, donc : comment faire plus 
rapide ? 


Tout d'abord, éviter de manipuler des chaines 
de caractères : ensuite et surtout penser très 
FORTH. 


En effet, le FORTH du HP71 est doté d'une pile 
dans Le style du HP41 avec des mots associés. 
Alors, quoi de plus naturel que d'utiliser ce 
vocabulaire ? 


Commençons donc par créer un double de la pile 
dans un buffer. Un mot spécial permute ces deux 
piles. parties réelles, 
l'autre Les parties imaginaires. Le principe des 
mots que l'on définit ensuite est qu'ils 
agissent successivement sur ces deux piles dans 
des opérations distinctes, mais qui utilisent 
les mots standard du FORTH. 


L'une contient les 


Exemple: l'addition. IL suffit  d'additionner 
Les deux parties réelles, permuter Les deux 
piles, additionner les deux parties imaginaires 
et remettre Les piles en ordre. Simple, non ? 


Bien sûr, ce schéma ne permet pas d'inclure 
dans Le vocabulaire des fonctions plus... 
complexes comme La multiplication, à moins de 
détruire toute ou partie de La pile. D'où 
l'intérêt, entre autres, d'utiliser un programme 
BASIC. 


Les principaux mots FORTH utiles sont Les 
suivants : 


COMPLEX_ MODE passe en mode complexe et dédouble 
la pile si ce n'était déjà fait. 


REAL MODE repasse en mode normal. La pile n'est 
pas détruite. 


R<>I permute Les deux piles réelle et imaginaire. 
FUNCTION COMPLEX récupère Le CFA d'une fonction 
sur La pile de données et l'exécute sur les deux 


piles flottantes seulement si on est en mode 
complexe (voir fonction Z+ par exemple). 
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Le programme BASIC ci-joint facilite grandement 
l'exploitation de ces fonctions : 


L'introduction des données et l'affichage des 
résultats sont beaucoup plus souples. 


L'affectation des commandes aux touches du 
clavier rend Le programme très pratique 
d'emploi. La Liste de ces assignations doit 
normalement figurer avec Le programme. Elles 
sont de la forme : 


DEF KEY ‘+!,'ADD': 


Le nom du fichier des assignations doit être 
CMPLXKEY ; Le programme sauvegarde vos propres 
assignations dans le fichier TEMPKEYS et remet 
tout en place à La fin. 


La gestion de La pile est dévolue au FORTH qui 
s'en sort très bien tout seul. 


Les fonctions plus complexes peuvent être 
réalisées sous BASIC sans perturber la pile. 
Dans ce cas, il peut être tout de même 
nécessaire d'en assurer La gestion (voir la 
fonction MUL par exemple). 


L'introduction d'un nombre est particulièrement 
simple : appuyez sur I ('INPUT') ; Le programme 
vous demande d'introduire La partie réelle puis 
la partie imaginaire. N'importe quelle 
expression arithmétique valide peut être 
introduite, La lecture étant assurée par un 
LINPUT suivi d'un VAL. 


Quant aux fonctions de stockage sur La pile, au 
message STO ou RCL, appuyez sur X, Ÿ, Z, T ou L 
suivant votre choix. Le programme fait écho de 
La touche pressée avant d'exécuter la fonction. 


Toute erreur renvoie à La demande d'une commande. 


IL n'y a pas d'inhibition de La montée de la 
pile. 


Les possesseurs du module MATHS peuvent très 
bien incorporer Les fontions complexes qu'il 
apporte pour compléter ce programme ou 
l'améliorer. 


Les fonctions déjà programmées sont: ADD (+), 
SOUS (-), MUL (*), DIV (/), INV (1/Z), CLZ, RUP 
RDN, LASTZ, ENTER, DROP, STO et RCL (X Y Z T L) 
ECH (X<>Y), MOD (module et argument), INPUT, END. 


Pour terminer, je remercie Alain Herreman, car 
je me suis (largement) inspiré de son programme 
pour Le graphisme de l'affichage. 


Alain Goubault de Brugière 


Fichier CMPLXKEY : 


DEF KEY ‘Q','END': 
DEF KEY ‘E','ENTER': 
DEF KEY 'R','RCL': 
DEF KEY ‘I','INPUT': 
DEF KEY :/1,'DIV': 
DEF KEY !S!,!STO!: 
DEF KEY 'D','DISP': 
DEF KEY ‘K','DROP': 
DEF KEY 'L','LASTZ': 
DEF KEY !*1,'MUL': 
DEF KEY 'X','ECH!': 
DEF KEY 'C','CLZ': 
DEF KEY ‘M','MOD': 
DEF KEY !-!,'SOUS!: 
DEF KEY ‘#431,11: 
DEF KEY ‘#471,11: 
DEF KEY '#48!,11; 
DEF KEY ‘#50!,'RUP!: 
DEF KEY ‘#51! ,'RDN': 
DEF KEY ‘+!','ADD': 
DEF KEY ‘#991,11: 
DEF KEY ‘f !,'BAR': 
DEF KEY ‘fO','!; 

DEF KEY ‘:','INV': 
DEF KEY ‘#155!,1!; 
DEF KEY ‘#159:,1!; 
DEF KEY '#160!,1!; 
DEF KEY '#162!,11; 
DEF KEY '#1631,11; 


Fichier CMPLXFTH : 


( Vocabulaire définissant des mots pour la ) 
( gestion d'une pile complexe en FORTH ) 
( A. Goubault 08/86 ) 


VOCABULARY COMPLEX WORDS 


: COMPLEX COMPLEX WORDS DEFINITIONS ; 


COMPLEX 


( 
( 





COMPLEX_BUFFER contient l'adresse de La pile ) 
imaginaire ) 


VARIABLE COMPLEX BUFFER O COMPLEX_BUFFER ! 
VARIABLE COMPLEX_ STATUS O COMPLEX_STATUS ! 
HEX 


nn 


.. nn 


.. nn Ps 


Construction de La double pile dans un "buffer!) 
de 40 octets ) 
COMPLEX_STACK ( -- adr ) 
28 MAKEBF 
IF 

COMPLEX_BUFFER ! 

DUP 28 O FILL 


ELSE 
ABORT " No Room"! 
THEN ; 
On construit La double pile si ce n'est pas ) 
déjà fait ) 


COMPLEX_STACK? 
COMPLEX_BUFFER à 
FINDBF DUP 0= 
IF COMPLEX_STACK 


( -- adr ) 


THEN ; 
Permutation des deux piles ) 
R<>1 Lee. 


COMPLEX_STACK? L 
DUP PAD 28 CMOVE 
OVER SWAP 28 CMOVE 
PAD SWAP 28 CMOVE ; 


Activation du mode complexe ) 
COMPLEX_MODE  ( -- adr ) 

COMPLEX_STACK? 

DROP -1 COMPLEX_ STATUS ! ; 


Retour au mode normal ) 
REAL MODE ( -- adr ) 
O COMPLEX_ STATUS ! ; 


Fonction agissant de manière identique sur les ) 
deux piles si Le mode complexe est activé ) 
FUNCTION COMPLEX ( CFA -- ) 
DUP EXECUTE COMPLEX STATUS à 
IF 

R<>] EXECUTE R<>1 

ELSE 

DROP 
THEN ; 


Fonctions élémentaires agissant sur Les deux  ) 
si Le mode complexe est activé ) 
Z+ ['] F+ FUNCTION COMPLEX ; 

Z- ['] F- FUNCTION COMPLEX ; 

COPYZ ['] FENTER FUNCTION COMPLEX ; 

ZDN ['] RDN FUNCTION COMPLEX ; 
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: ZUP ('] RUP FUNCTION COMPLEX ; 

: ECHZ ['] X<>Y FUNCTION COMPLEX ; 

: LASTZ [('] LASTX FUNCTION COMPLEX ; 
: ZDROP ['] FDROP FUNCTION COMPLEX ; 


( Fonction conjugué ) 
: ZBAR 
COMPLEX_ STATUS à 
IF 
L STO R<>I L STO CHS R<>I 
ELSE 
1/X 
THEN ; 


( Fonctions de stockage sur la pile ) 
: ZSTO ( adr -- ) 
DUP STO 
COMPLEX_ STATUS à 
IF 
R<>I STO R<>I 
ELSE 
DROP 
THEN ; 
: ZRCL ( adr -- ) 
DUP RCL 
COMPLEX_STATUS a 
IF 
R<>] RCL R<>I 
ELSE 
DROP 
THEN ; 


DECIMAL 
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Programme "LISTPRIM" (sous-programmes pour l'utilisation de DIVILEX) 


10 SUB LPRIMCN,M) 
20 N=FPRMCN,M) à IF N THEN DISP N; @ N=N+2 à GOTO 20 
30 END 





40 SUB DECOMP(A$S) à DIM A,B,C,H,R @ L=LEN(AS$) à IF L>15 THEN DISP "N < 10°15" @ END 


50 IF L<4 THEN H=0 à B=VAL(A$) à GOTO 70 
60 H=VAL(AS[1,L-3]) à B=VAL(AS$IL-2,L]) 
70 A=PRIM(H,B) 

80 D=1 à 1F NOT A THEN DISP A$ à END 


90 R=MOD(H,A) à H=H DIV À Q B=R*1000+B à B=B DIV À à C=PRIM(H,B) à IF C=A THEN D=D+1 à GOTO 90 


100 1F H<1000000000 AND H*1000+B=A THEN D=D+1 
110 IF D=1 THEN DISP A; à GOTO 130 

120 DISP STR$(A)&CHRS(94)ESTRE(D)E" > 

130 IF H<1000000000 AND H*1000+B=A THEN END 
140 IF NOT H THEN A$S=STR$(B) à A=C à GOTO 80 
150 AS=STR$S(H) à IF B<100 THEN A$=A$&!"0" 

160 IF B<10 THEN A$=AS$&!0" 

170 A$S=A$S&STR$S(B) à A=C à GOTO 80 


180 SUB EQUZ(A,B,C) à D=PGCD(A,B) 

190 A=A/D à B=B/D à C=C/D à 1F FP(C) THEN 300 
200 X1=0 à Y2=0 

210 Y1=(C-X1*A)/B à IF NOT FP(Y1) THEN 260 
220 X1=-X1+1*(X1<=0) 

230 X2=(C-Y2*B)/A à IF NOT FP(X2) THEN 250 
240 Y2=-Y2+1*(Y2<=0) à GOTO 210 

250 X1=X2 à Y1=Y2 

260 DISP MX ="-X1:"+N-ABS(B);"* K !": 

270 DISP MY =":Y1; 

280 IF SGN(A*B)+1 THEN DISP #-#: ELSE DISP “+11: 
290 DISP ABS(A);"* K!"! Q END 

300 DISP “Pas de solution!" @ END 


310 SUB JUM(N) @ A=FPRM(N) 
320 B=FPRM(A+2) à IF B=A+2 THEN DISP A;B 
330 A=B @ GOTO 320 


340 SUB QUAD(N) à A=FPRMCN) 

350 B=FPRM(A+2) à IF B#A+2 THEN A=B à GOTO 350 
360 C=FPRM(B+4) à IF C#B+4 THEN A=C à GOTO 350 
370 D=FPRM(C+2) à IF D#C+2 THEN A=D @ GOTO 350 
380 DISP A;B;C;D à A=C à GOTO 350 


CESSSCDESSSTTESTTTTTTSTTTTSTSESSSSSSSESESSSSSSS === ====- 
390 SUB FPRM(A$) à IF LEN(CA$)<13 THEN DISP FPRM(VAL(AS)) @ END 
400 CFLAG 0 à IF A$[1,1]="-" THEN SFLAG O à A$=A$ [2] 

410 L=LEN(AS) à IF L>15 THEN 550 
420 H=VAL(AS[I1,L-3]) à B=VAL(ASIL-2,L]) 
430 1F H=1.E+12-1 AND B>989 THEN 550 
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IF FLAG(O) THEN 490 

IF NOT MOD(B,2) THEN B=8+1 

A=PRIMCH,B) à IF NOT A THEN 520 

B=B+2 à IF B=1001 THEN H=H+1 Q B=1 

GOTO 460 

IF NOT MOD(B,2) THEN B=B-1 

IF H AND B<0 THEN B=999 à H=H-1 

A=PRIM(H,B) à IF NOT A THEN 520 ELSE B=B-2 à GOTO 500 
IF H THEN DISP STR$S(H): 

1F B<10 THEN DISP "O0": ELSE IF B<100 THEN DISP "O": 
DISP STR$(B) à END 

DISP MN <= 999999999999989n à END 


SUB REDUC(K) à IF Kz1 THEN J=2 ELSE J=K 

OPTION BASE 1 à DIM N(J),D(J) à STD à IF K=1 THEN N(2)=1 à D(2)=1 

FOR 1=1 TO K à DISP "N'&STRS(I)&",D'&STRS(I)&" "; à INPUT NCI),DC1) 
G=PGCD(N(I),D(1)) @ N(I)=N(1)/G @ D(1)=D(1)/G a NEXT I 

IF K=1 THEN P=D(1) à GOTO 620 

P=PPCM(D(1),D(2)) à FOR 1=3 TO J a P=PPCM(P,D(I1)) @ NEXT 1! 

DELAY 8 à FOR 1=1 TO K à N(I1)=P/D(I)*NCI) à IF N(1)>1.E+12-1 THEN DISP "OVFL" Q END 
DISP MFMESTRS(1)&" = MESTRS(N(I))&" / "&STRS(P) à NEXT I! @ DELAY .5 à END 


SUB PRIMC(AS) à L=LEN(AS) à IF L>15 THEN DISP "N < 10*15" à END 
IF L<13 THEN DISP PRIM(VAL(A$)) à END 

H=VAL(AS(1,L-3]) à B=VAL(AS(L-2,L]) 

DISP PRIMCH,B) à END 


- Guy Toublanc (P276) 28/9/86 


ARRRRRRERRRR RE RS RM RR RÉ RR RÉ RRRRRRRRRRRRRRRRRRRRRRRÉRRRRRRRRRRRRRRRRÉRRRRRRRRRRRRRRRRRRRÉRRRÉRRRÉÉÉA RÉ É 


Programme "COMPLEX" (calculs sur nombres complexes) 


- HP71 Complex Stack 


A.Goubault JULY 86 

Uses FORTH and KEYWAIT$ (LEX) 

ON ERROR GOTO 20 à COPY KEYS TO TEMPKEYS @ OFF ERROR 

PURGE KEYS @ MERGE CMPLXKEY 

FORTHX :FORTH COMPLEX COMPLEX_MODE ! 

GDISP CHR$S(É2)ECHRS(ÉS )ECHRS( 127 )ECHRS(ES)ECHRS(34) Q WINDOW 3 
DIM 2$(22],C$1(5),K$(1] ,N$ (3) 

USER ON à DELAY 0,0 à ENG 2 à DEGREES 


0 ne us us us us us ue us du de un due (ue (ue (ie ie A A de A CN M A CO (OU UN MN UN Œe Œe ON Me AN Œ me A AS de NS ŒS CS CU AUS AS AUS CUS OU UN Sn ne 
mme © OS US US eu M M A US A ŒUS AS QUE AN AUS US AUS AUS AU AU CN OC CN CE Ce CN CN CO A NC CN © Ce Ce ue 


1D': GOSUB 'GET' 


IDISP': S=SGN(Y)+2 à ZS=STRS(X)&'-++1 [S,SJESTRE(ABS(Y))&'i! 
ON €RROR GOTO 100 
WINDOW 3 à DISP Z$ à WINDOW 22 à INPUT C$ à GOTO C$ 


PE 


*INPUT': USER à WINDOW 3 
LINPUT 'Re? !,'01:X$ à LINPUT ‘Im? ‘,'0';Y$ 


38 2086 38’ 


X=VAL(X$S) @ Y=VAL(Y$) @ USER 
GOSUB 'PUT' à GOTO 'DISP! 


END': FORTHX 'REAL MODE FORTH DEFINITIONS' @ WINDOW 1 à STD @ USER OFF 
ON ERROR GOTO 170 @ PURGE KEYS @ RENAME TEMPKEYS TO KEYS 
END 


tADD': FORTHX 'Z+' @ GOTO 'D' 


"SOUS': FORTHX 'Z-' @ GOTO 'D' 


‘ECH': FORTHX "ECHZ' @ GOTO 'D' 


= ee eue eue me ue me de site ste dt ce une du une du nu us Gun un Me Mu M Œuue Ou Ou Mu Ou Mu Mu nu Mu Mu Mu Mu Mu M Me A du Un UN un EUR Ou ue GS Au On Ou Ou Eu ue ue ue eue 
= ———O— me mu eu ee ue ue ee due ue ue eu un un un Œue Ou Ou ue Ou Ou GO Œ ŒuE Œu Œu Œu ŒR Ou Ge Ge Ge Œu Œ ue ue ue ue ue eue ne M de de ee ee ee 


"ENTER': FORTHX 'COPYZ' à GOTO 'DISP"' 


SSSSSSSSSSSSSSSSSESSESESSESSESTSTSTTISESSSEESSSSSSZESSSEESSEE 
tINV': SFLAG 7 @ 'BAR': FORTHX 'ZBAR' à@ Y=-Y 

IF FLAG(7,0) THEN A=X"2+Y"2 @ X=X/A @ Y=Y/A à GOSUB 'PUT! 
GOTO 'DISP! 


"RUP': FORTHX 'ZUP' à GOTO ‘D! 


"RDN': FORTHX 'ZDN' @ GOTO 'D' 


ILASTZ': FORTHX 'LASTZ' à GOTO ‘D! 


IDIV': SFLAG 5 @ ‘MUL': U=X @ V=Y @ FORTHX 'L ZSTO ZDROP' a GOSUB 'GET' 
N=1 à IF FLAG(5,0) THEN V=-V @ N=U”"2+V"2 

A=U*X-V*Y @Q B=U*Y+V*X à X=A/N à Y=B/N 

FORTHX 'ZDROP' à GOSUB "PUT' @ GOTO 'DISP' 


'DROP': FORTHX 'ZDROP' @ GOTO 'D' 


1STO': SFLAG 6 à 'RCL': WINDOW 3 à DISP C$ à WINDOW 7 @ USER OFF 
KS=KEYWAIT$ à ON POS('XYZTL',K$)+1 GOTO 'RCL',360,370,380,390,400 
FORTHX 'X! à GOTO 410 

FORTHX :Y' à GOTO 410 

FORTHX Z! à GOTO 410 

FORTHX !T' @ GOTO 410 

FORTHX !L' 

DISP K$ à USER ON à IF FLAG(6,0) THEN FORTHX !ZSTO' ELSE FORTHX 'ZRCL' 
GOTO :D' 
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430 'MOD': A=SQR(X"2+Y"2) à B=ANGLE(X,Y) 
440 WINDOW 3 à DISP '|z|=';A Q WAIT 3 à DISP '=';B;'Deg' à WAIT 3 
450 GOTO ‘'DISP' 


PR TL LIL LLLIILILLIILILIILIILILILILLELLILEILILILSILIELIILILILIILILILILILIELLELELEESEE LL) 
= nm ue mue ue te de ue “ue ce le de le ie Me AU AU AN AN AU AN AU UN A UN ŒN CE GUN GUN QUE CN MEN UN UN UN UN GUN GUN Ne UNE AN AN AN ANS CNE CN UN GUN GUN UN CUS CN CN CN CN GUN CN 


470 'GET': X=FORTHF @ FORTHX 'R<>l' @ Y=FORTHF @ FORTHX 'R<>I' q RETURN 


DS ET EL ae 


Léonard de Vina (1452-1519 ) 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient La Liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c'est un programme pour Le HP71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des 
programmes Basic. 


Pour 


bénéficier de ces nouvelles fonctions, vous n'avez pas besoin de programmer vous-même 


en assembleur, ni de posséder un module Forth/Assembleur. 


Il 


suffit de recopier Le petit programme basic "MAKELEX" ci-dessous, de Le lancer et de 


recopier Les codes du fichier Lex désiré. Quand vous avez fini, Les nouvelles fonctions sont 
accessibles, après avoir éteint et rallumé votre HP71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez La ligne que vous avez introduite. 


Vous 


trouverez, outre Les Lex de La rubrique "assembleur", Le Lex CHARLEX nécessaire à la 


rédaction de votre article. Voir l'article "Ah ! Vous écrivez !". 


P. David (PC37 SIG1 CHHU616) 


DIVILEX  FPRM 225082 
NPRM 225083 
PGCD 225084 
PHI 225085 
PPCM 225086 
PRIM 225087 


BASICLEX BLIST 225090 


PBLIST 225091 
RENUMREM 225092 


CHARLEX 


10 
20 
30 
40 
50 


70 
80 
90 
100 
110 
120 
130 





CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: ";N à LC OFF 
CREATE DATA AH,1,N-4 à A=HTD(ADDRS$S("AH")) @ B=A à GOSUB 130 
Q=1 à X=0 à INPUT "000: ",P$:A$ à C$=A$ à S=0 à GOSUB 90 
Q=2 à X=1 9 GOSUB 80 à A$=AS&CS à A=A+37 Q N=N*2+37 à Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
GOSUB 80 à C$=CS[5*FLAG(5)+1] à POKE DTH$(A),C$ à A=A+16-5*FLAG(5,0) @ NEXT X à Q=4 
DISP DTH$SCX)[3]; @ INPUT ": ",P$[1,MOD(N,16)];C$ à GOSUB 90 
POKE DTH$(A),C$S à POKE DTH$(B),A$ à CFLAG -1 à END 
DISP DTH$SCX)[3)1; @ INPUT ": ",P$;C$ 
DISP DTHS(X) [3]; à INPUT " sm ","---":D$ 

=$S à FOR Z=1 TO LEN(C$S) à M=NUM(C$[Z])+M+1 à NEXT Z 

IF D$=DTHS(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 
DISP “Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 
P$=m----.-..-....... “ à RETURN 
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DIVILEX ID#E1 641 octets 036: A2EA6C90D808F154 0DC 018: C3645631A347F6EF 7FC 


037: F8F355COAD47C6E1 49F 019: 1137134C2D716E8D B88 

0123456789ABCDEF sm 038: 0011876811118508 7E7 014: E377078228437612 EFO 

039: 5397280843100711 832 018: 316C962808475818 25F 

000: 44946594C4548502 36C 03A: 0873A097650AF262 EB1 01C: 59867208575A0876 503 
001: 802E005401910168 68E 038: 6D/E4EAEB7211866 271 010: 50858869A0877508 948 
002: 705001E257500000 A03 03C: 7B801AF8B667EFO7A 63C 01E: 5884986750859316 CB4 
003: F440000000000000 031 030: F073F072F07BE07A 9E7 01F: F966808568585528 03D 
004: 09D100FB00AD100F OC3 03E: E073E07CD07ED074 D94 020: 4631989669185884 386 
005: 6108F000F120E500 428 03F: D073D072D078C074 12A 021: 317C14F1CC96A508 753 
006: OFA204D000F530CA 7BE 040: cO070C072C0788077 482 022: 5318698F21371441 AC2 
007: 200F7640525D4257 B29 041: 8076807CA07BA074 853 023: 37311C9627086885 E2F 
008: E405250435705743 E98 042: A07D907F907E9077 BF1 024: 8487A818F245818F 1C4 
009: 4444550584945570 1F1 043: 9076907F80758074 F64 025: 1C0710273F175810 564 
00A: 50534D4657052594 555 044: 8073807C707E7077 2E0 026: 231E3AESDAA6D310 925 
008: D4751FF811741110 8CE 045: 7070707270786074 635 027: 314C161A6D56F854 CB5 
00C: 0102AF2809972747 C3F 046: 6073607260785074 993 028: 8F51E718F1CD7177 062 
000: FD2100976C010976 FBC 047: 5076507C407B407A DOD 029: 217831844842316E 3CF 
00E: 1051374221199794 300 048: 407340724072307A 060 02A: 962E031CF9668085 75C 
00F: E73005901121197B 686 049: 3080293C00114A12 386 028: 285479118FF6F407 AEC 
010: 02119A7E73041020 91 04A: 110736E11927919E 729 02C: 1717A01791186406 E48 
011: 1AFA8F223B1AF686 D90 048: 09F2606F1F118494 AAE 020: 310214A9628014C1 180 
012: OSOA4E8D832F0888 133 04C: A1BAIBAIBAIBA1B1 E73 02E: 6151F161AF027158 529 
013: 88888882A8525118 4AC 040: 09110209FAA0BF20 1FB 02F: 3872601501201838 870 
014: 8888888882A84277 833 04E: CS5FB87ASCFA7AOD& 5D7 030: 6520855522167132 BBC 
015: 7010176705901087 888 04F: 80BF65EE1192791C 970 031: 130187137EA81C88 F47 
016: C60780094F2F54A1 F16 050: 0007119110840011 CAF 032: 890310214C613084 280 
017: 1997ESO0AFE10310A 2AC 051: 028FCDCE0051128F 055 033: 574808731231AD96 625 
018: 76819798011153F1 615 052: 88CE001 1F9 034: 28131A878A040031 9AD 
019: 19862001137F6110 969 035: 2C70405508587170 D18 
01A: 01127F40AFE7E511 CFD BASICLEX ID#E1 1093 octets 036: 8F71860135001583 09E 
018: 189F280775310101 062 037: 11B886611378FDA6 43D 
01C: 078D91FB0AC71CF1 410 0123456789ABCDEF sm 038: 701355606C1E8D84 7BF 
010: 7F8FC1D809485085 7C9 039: A801611361351110 B1A 
01E: 4321109867D8F2EA B66 000: 2414359434C45485 364 03A: 8008FDFFF0400870 ECD 
01F: 21A4F0121AF280CC EFF 001: 802E007401910168 688 038: CD87A7D031F698F2 288 
020: 2001AF2302AF7310 272 002: F88001EA5C500000 A32 03C: 14713517514B1C50 5EA 
021: 110C018812851590 5C7 003: F920000000000000 D63 030: 118EB6F215630815 97A 
022: 88228418447B9FAF 967 004: 0860000000840000 0DD 03E: 430118F85F214613 CEF 
023: 2874607D8F10A948 D06 005: Cc10755000924C494 459 03F: 4135011371341631 028 
024: 90102768F10011A9 O6A 006: 3545A580524C4943 7D4 040: 370006D214ED7161 3C6 
025: FA5085479AF31607 3FF 007: 54585F2554E45504 B6A 041: 14A96081136C8136 730 
026: AA097C60695FAFO01 7AC 008: 2554D4C51FFD1800 FO4 042: 18114E16190EAD07 AC3 
027: 03118879876864F2 834 009: 2970031F1A808345 282 043: D5017CAF1F1C6F21 E78 
028: 96942AEE20305A€E EE2 00A: 31608008770031F0 5DE 044: 43EA81C3140B62AE 219 
029: 8684F0118703087B 268 008: AB01F078F214D17A 981 045: A1FEB6F215321188 580 
02A: B787620B7BS5EEA6D 63A 00C: 15131E055F147135 CFA 046: FD3DE0098FD3DE00 982 
028: 480A605607D10A7B 902 000: 14A8F504504F1311 06C 047: 28260E2692860313 D18 
02C: A7B7310A7B5EE 108 D79 00E: F962618FD2F90456 40C 048: 1AA2A621088F2458 OAD 
020: 1101146900108112 OBA 00F: 8F26F9042617E143 793 049: 11F778F214713502 42E 
02E: 9F2E178009760187 454 010: F41CE8F147704647 B2C 04A: 14F1130517114F96 7AA 
02F: 1311188761081180 789 011: 5248F8F86048317F ED2 048: ES0B82688270EA58F B5A 
030: 511307600€1098FB 841 012: 1437A60DB1F688F2 273 04C: E01035E0C01038F1 ED3 
031: 7CE00388127BAE94 EE2 013: 1457C5218878F215 600 04D: CD713F0202020202 235 
032: B82AF2329999F632 281 014: 631AEB6F 15434856 992 04E: 0202021F898F2155 5AB 
033: E6109100739€1197 5F1 015: A1280A93908766F8 D31 04F: 734B98F20/D23081 93E 
034: CC1110A7A10197C6 97E 016: F73321C04AE831F1 OC7 050: 13EA4211030A8FAF CED 
035: 0607EAF8003151AE D23 017: B47A474F0978A031 457 051: D716D0DFCA8FAFD71 0E2 
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052: 1188FC2D0E0D58FC2 4AE 083: 5E0867A18020F208 F2B 023: 180008040E340800 5C2 


053: DE010B0184902E61 842 084: FDC6304908027130 287 024: 08001E3018000000 8FC 
054: 0933999910B84A14 BBA 085: 7D008FDC6305DE85 66B 025: 0000000000000000 COC 
055: A311F96600160142 F19 086: 98F6E84031F09660 9F8 026: 0000000000000000 F1C 
056: F4164101879A085A 297 087: 1311FAEA805 10208 D9B 027: 0000000000000000 22C 
057: D010314A9660084A 607 088: DF3E208FE7A20400 140 028: 0201000000010200 542 
058: 16115A3103879001 956 089: 5887FEF41B8497FA 511 029: 0000000201020000 857 
059: 198B240018D91FB0 CDF 08A: F87989038093850 871 02A: 0001000100000002 B6B 
05A: 80300EE200136108 039 028: 0102010000000000 E7F 
058: 730275128F398708 3AF CHARLEX ID#E1 624 octets 02C: 0000000000000000 18F 
05C: 518528F357A14B11 728 02D: 045E755142400101 4DB 
050: F976F211A1457EF1 ACF 0123456789ABCDEF sm 02E: 0101010000000000 7EE 
05E: 31E162F111013076 E2B 02F: 0000000000000000 AFE 
05F: A1102D2E6F210810 1A3 000: 34841425C4548502 35E 030: 0000070507000000 E21 
060: 9F2F2F2108707143 52D 001: 802E009401910168 6B4 031: 00000000083444C4 15F 
061: 610076614951017C 886 002: 5E4001E000000000 9F8 032: 4440007901112070 4BF 
062: 514F4D61321028F4 BFF 003: FE0000000800001F D52 033: 0500750509700000 809 
063: EFFO86060625D137 F90 004: F31BF961400032BF 0E5 034: 0070000000384540 B4C 
064: 12A1347431472052 2DF 005: 38F14A11DB10AD23 47F 035: 4020014E322E3140 EAO 
065: 38142004491D68F4 659 006: 07D5328F88F07911 832 036: 084E794142400000 1F0 
066: EFF0D01583870501 9%ÆE 007: 11AD754D7A101743 BB5S 037: 00000000002€4559 52E 
067: 0372211371128A21 D38 008: 11014D1CB15D0000 F20 038: 3200000000000000 843 
068: 21301838F7887002 OAC 009: 71450375FF864834 290 039: 0000000000000026 858 
069: 15F31108B6606CFE 447 00A: 5655581008355654 5F4 034: 5556587008365556 EBA 
06A: 1FC65F2147D711A1 7DF 008: 5810002455565870 941 038: 5810083645464830 208 
068: 350215F313411806 B44 00C: 0026555658700836 C93 03C: 0832414248700024 540 
06C: 114A135111D81378B EB4 00D: 5556581008364545 FE9 030: 5655587008345655 8A9 
060: FD2135D015831188 244 00E: 4A300004A49724000 33C 03E: 5810083446454830 BF8 
06E: BEC1110882810413 5BE 00F: 0808094A2C180814 6A5 03F: 0C3042414C700024 F40 
06F: 6108D2E610954C6C 94D 010: A464242008355455 9FF 040: 5556587008355654 2AA 
070: 6015937CBC31CF96 CFO 011: 581000054C714000 D45 041: 5810083546444830 5F9 
071: 2C1316E962311100 04C 012: 0C3142404C700832 OA1 042: 0C3142404C700025 94F 
072: 7D605E606€>710071 388 013: 41414A70002078A0 3F9 043: 5455587008355455 CA9 
073: 5D305E6061102399 726 014: 2F30000000000000 724 044: 5810083544454830 FF7 
074: E70C01000420173D A8B 015: 0000000000000000 A34 045: 0C3140414C700875 359 
075: 214F133CA13114B1 EO0 016: 0000000000000000 D44 046: 1414187000044972 6AA 
076: 7190CCE636F07851 196 017: 0000000000000000 054 047: 40000€3159454E30 AOA 
077: 8428F357A1611C14 513 018: 0000000000000000 364 048: OC7A0F7949400024 D82 
078: A161311F96600001 881 019: 0000000000000000 674 049: 5554587000084A71 ODE 
079: 5A3163031FC65F21 COS 01A: 0000000000000000 984 04A: 40000C523A262D10 43F 
O7A: 47D71CE143023113 F8A 018: 0000000000000000 C94 04B: 0424587458400875 796 
078: CA1310172108FEEB 328 01C: 0000000000000000 FA& 04C: 1415187000094A70 AE6 
07C: 60441832005C08F6 690 01D: 0000000000000000 284 040: 4000083544454830 E2A 
070: 277050080393901F A00 01E: 0000000000000000 5C4 O4E: 0C3140414C300C74 192 
07E: D55F214713517E14 D7D 01F: 0000000000000000 8D4 04F: 56555450000540C71 4E9 
07F: 3F434412E08A6618 OFB 020: 0000000000000000 BE4 050: 40000 SE2 
080: F738908F78870147 48E 021: 000000000000080€ FOF 

081: 540D21B8E7F215C3 828 022: 1A28080008080A2C 279 

082: 0370604228F5CC30 B9C 023: 180008040€340800 5C2 
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AUTRE MATERIEL MICRO-INFORMATIQUE 


COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 


Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous  enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le journal de liaison, sans obligations 
ni responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de la 
part des dirigeants du PPC PARIS CHAPTER. 
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JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE A 
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